name1 1 2 3 4 typex
name2 3 4 5 6 typey
name3 2 3 3 1 typex

##</code><code>##


typex
name1 1 2 3 4
name3 2 3 3 1 

typey
name2 3 4 5 6 

##</code><code>##

while (my $line = <TEMP>) {
    chomp($line);
    push @array, $line;
    my ($name, $column2, $column3, $column4, $column5, $type) = split/\s+/;
}