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