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