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