Shell Programming and Scripting

$
$ perl -e '{
>   @a = qw/a b c/; print "Array a =\n",join("\n",@a),"\n";
>   @b = qw/1 2 3/; print "Array b =\n",join("\n",@b),"\n";
>   foreach $i (0..$#a){ $c[$i] = $a[$i].$b[$i]; } print "Array c = \n",join("\n",@c),"\n";}'
Array a =
a
b
c
Array b =
1
2
3
Array c =
a1
b2
c3
$

i=0
a=(a b c)
b=(1 2 3)
sum=$((${#a[@]}-1))
while [ $i -le $sum ];do
echo ${a[$i]}${b[$i]}
i=$(($i+1))
done

my @arr1=(a,b,c);
my @arr2=(1,2,3);
my @arr3=map {$arr1[$_].$arr2[$_]} 0..$#arr1;
print join "|", @arr3;