Running the previous version of code:

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

Modified as follows using "exists":

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

Run it to produce:

perl arraydelete.pl
1245
[download]