my @table = push (split ( / /, @lines) ); my @table2 = $table[2,5] ; print @table2, "\n";