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++;
}