如何使用perl的Tie::File 模块删除文件固定行

#! /usr/bin/perl
use v5.14;
use Tie::File;
if (@ARGV == 0) {
	say "请输入一个文件名 !!!";
	exit 1;
}
my $filePath = $ARGV[0];
tie my @arry, 'Tie::File', $filePath;
# 删除第二行开始的三行内容
# 如果这里的索引值越界, 对文件内容没有影响
splice @arry, 1, 3; 

use Tie::File;
tie @array, 'Tie::File', filename or die ...;
$array[13] = 'blah';     # line 13 of the file is now 'blah'
print $array[42];        # display line 42 of the file
$n_recs = @array;        # how many records are in the file?
$#array -= 2;            # chop two records off the end
for (@array) {
  s/PERL/Perl/g;         # Replace PERL with Perl everywhere in the file
}
# These are just like regular push, pop, unshift, shift, and splice
# Except that they modify the file in the way you would expect
push @array, new recs...;
my $r1 = pop @array;
unshift @array, new recs...;
my $r2 = shift @array;
@old_recs = splice @array, 3, 7, new recs...;
untie @array;            # all finished

use Tie::File;
my @array;
my $filename = "a.txt";
tie(@array,'Tie::File',$filename) or die;
print "$array[3]
";
print "$#array
";
$array[3] = "hello";
$array[1] = "world";
splice(@array, 1, 0, "insert into 0 and 1 line");
delete $array[$#array];
$#array -= 2;
print pop @array;
untie($array);

splice ARRAY, OFFSET, LENGTH, LIST
splice ARRAY, OFFSET, LENGTH
splice ARRAY, OFFSET
splice ARRAY

sub list_eq {            # 比较两个列表值
   my @a = splice(@_, 0, shift);
   my @b = splice(@_, 0, shift);
   return 0 unless @a == @b;   #  长度相同？
   while(@a) {
      return 0 if pop(@a) ne pop(@b);
   }
   return 1;
}
if (list_eq($len, @foo[1..$len], scalar(@bar), @bar)) { ... }