use Tie::File;

my $file = "file.csv";

tie my @lines, Tie::File, $file or die "can't update $file: $!";
$lines[1] = $lines[0];
shift(@lines);
untie @lines;