Shell Programming and Scripting

2 1
3 4
4 2 
2 1
3 4
4 2
2 1
3 4
4 2

[file2]
saeed
vahid
reza 
golam
maso 
wer 
qwe
rew
ter

saeed 2 1
vahid 3 4
reza 4 2
golam 2 1
maso 3 4
wer 4 2
.
.
.

#!/bin/bash
for i in {1..3}
do
awk '{$2=" 2 1 " $2}' > file2
awk '{$2=" 3 4 " $2}' >> file2
awk '{$2=" 4 2 " $2}' >> file2
done

for i in 1 2 3
do
  for j in "2 1" "3 4" "4 2"
  do 
    read name
    echo "$name $j"
  done
done < infile

$ cat file2                                                                                                                                                                                                                                  
saeed                                                                                                                                                                                                                                        
vahid                                                                                                                                                                                                                                        
reza                                                                                                                                                                                                                                         
golam                                                                                                                                                                                                                                        
maso                                                                                                                                                                                                                                         
wer                                                                                                                                                                                                                                          
qwe                                                                                                                                                                                                                                          
rew                                                                                                                                                                                                                                          
ter                                                                                                                                                                                                                                          
$ cat myscript.pl                                                                                                                                                                                                                            
use warnings;                                                                                                                                                                                                                                
use strict;                                                                                                                                                                                                                                  

my @numbers = qw/
        2 1
        3 4
        4 2 
        2 1
        3 4
        4 2
        2 1
        3 4
        4 2
/;

while ( <> ) {
        chomp;
        printf qq[%s %s\n], $_, join q[ ], ( @numbers >= 2 ? splice @numbers, 0, 2 : q[] );
        s/\s+\Z//;
}
$ perl myscript.pl file2
saeed 2 1
vahid 3 4
reza  4 2
golam 2 1
maso  3 4
wer  4 2
qwe 2 1
rew 3 4
ter 4 2

paste file2 file1 > file3