use strict;

for (1..10) {
    my $t0 = time();
    my $lines = read_log();
    print "Used ", time() - $t0, "\n"
}

sub read_log {
    open(FILE, "<", "test.txt");
    my @lines = <FILE>;
    close(FILE);
    return \@lines
}