also eigene funktionen wie read_file zu schreiben halte ich dann doch für zuviel des guten. dann lieber IO::All benutzen:
my @lines = io('file.txt')->slurp;