$array1 = [qw(1 2 3 4 5 6 7 8 9 0)];
$array2 = [qw(a s d f g h j k l o)];



##</code><code>##



 1,a
 2,s
 3,d
 4,f
 5,g
 6,h
 7,j
 8,k
 9,l
 0,o


##</code><code>##


 froeach my $x (@$array1) {
            return $x;
            }
 foreach my $c (@$array2) {
            return $c;
            }

print qq($x , $c);