[... # Dein Code copy&past ...]
open(my $fh, '<', './pm_groups.txt') or die "$!\n";
my @lines = read_back($fh,20);
close($fh);

print 'Zeilen = '.@lines.":\n".join('',@lines)."\n";