open(my $file, "<", ...);
my @lines = <$file>;
close $file;
unshift @lines, pop @lines for (1..5);
open(my $file, ">", ...);
print $file $_ for @lines;
close $file;