for each element in @b
   $a[1] = element
   print $a[1]
done