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