Hi This is also another method try.

my $x=1;
my $y=2;
my @a=qw(1 2 3);
my @b=qw(7 8 9);
 
my $i=0;
for (@a){
    print "$x:$a[$i] "; 
    print "$y:$b[$i] "; 
    print "\n";          
    $i++;
}
[download]

1:1 2:7
1:2 2:8
1:3 2:9