splice(@lines, 1, 1);
[download]

If you try this, both print statements give you 2.

use strict;
use warnings;

my @a = (1,2,3);
print $#a, "\n";
delete $a[1];
print $#a, "\n";
[download]