How to write from n-th row to a file using perl

open(my $fh, '>', 'file.txt') or die "Cannot open file: $!";

my @lines = <$fh>;

my $n = 5; # Òª´ÓµÚ5ÐпªÊ¼Ð´ÈëÎļþ
my @remaining_lines = splice(@lines, $n - 1);
print $fh @remaining_lines;

close($fh);

use strict;
use warnings;

my $n = 5; # Òª´ÓµÚ5ÐпªÊ¼Ð´ÈëÎļþ

# ´ò¿ªÎļþ
open(my $fh, '>', 'file.txt') or die "Cannot open file: $!";

# ¶ÁÈ¡Îļþ
my @lines = <$fh>;

# ´ÓµÚnÐпªÊ¼Ð´ÈëÎļþ
my @remaining_lines = splice(@lines, $n - 1);
print $fh @remaining_lines;

# ¹Ø±ÕÎļþ
close($fh);