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