my @arr = (10, 20, 30, 40);
@arr[1, 2] = ();

say Dumper(\@arr);

--output:--
$VAR1 = [
          10,
          undef,
          undef,
          40
        ];