my @file = <FH>;
foreach my $line (@file){
    # action on each line
}