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