foreach $a(@a) {
print "a- $a    b - $b \n"
}

##</code><code>##

$cnt=@a;
for ($count=0;$count<$cnt;$count++) {
print "a $a[$count]   b $b[$count] \n";
}