use Tie::File;

my $file = "file.csv";

tie my @lines, Tie::File, $file
  or die "can't update $file: $!";

splice(@lines, 1, 1);

##</code><code>##

splice(@lines, 0, 1);

##</code><code>##

shift(@lines);