Select Code to Download

@values = qw( 00 11 22 33 );
use Data::Dumper;
...
          '22',
          '33'
        ];

$values[6] = "66";
print Dumper \@values;
...
          ${\$VAR1->[4]},
          '66'
        ];

$values[4] = "44";
 print Dumper \@values;
...
          undef,
          '66'
        ];

$values[1] = undef;
print exists $values[1];
# generates the output: 1, i.e., the array slot contains the value 'un
+def'.

delete $values[1];
delete $values[3];
...
          ${\$VAR1->[1]},
          '66'
        ];

$values[6] = undef
print Dumper \@values;
...
          ${\$VAR1->[1]},
          undef
        ];

$values[0] = undef;
$values[2] = undef;
...
SCALAR(0x81d627c)
SCALAR(0x8279e10)

delete @values[0];
delete @values[1];
...
print Dumper \@values;
# generates the output :
$VAR1 = [];