my  @table =  ('a b c d e', 'f g h i j', 'k l m n o', 'p q r s t', 'u v w x y');
my  @table2 =  map { [(split / /, $_)[1, 4]] } @table;