my @array;

while (my $data = <FH>) {
    push @array, $data;
}