open my $fh, "data" or die "could not open data for reading: $!";
my @data = <$fh>;
close $fh;

open $fh, ">data" or die "could not open data for writing: $!";
for (0..4) {
        print $fh $data[$_];
}
close $fh;