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

##</code><code>##

Use of uninitialized value in print at checkifexists.pl line 6.
1245