my @lines = <$file_handle>;
for my $line (@lines) {
    ...
}