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