@a = qw(a b c d e);
   $b = @a[1];
   print $b