my $filepath = '/path/to/huge/file';
open my $fh, '<:encoding(UTF-8)', $filepath or die $!;
while ( my $line = <$fh> ) {
    # process one line at a time
}
close $fh or die $!;