my $index = shift || -1;

##</code><code>##

my $index = shift;
$index = -1 unless defined $index;