perl arraydelete.pl
Use of uninitialized value within @x in print at arraydelete.pl line 6.
1245

##</code><code>##

#! perl
use warnings;
use strict;
my @x = (1,2,3,4,5);
delete $x[2];
for (0..4) { print $x[$_] if exists ($x[$_]) }

##</code><code>##

perl arraydelete.pl
1245