Another way of removing the line would be:

#!/usr/bin/perl
use Tie::File;
my $filename = 'foo.dat';

tie @array, 'Tie::File', $filename or die "Cannot open $filename\n";
splice @array,1,1
[download]