Select Code to Download

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

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

perl arraydelete.pl
1245