c:\@Work\Perl\monks>perl -wMstrict -le
"my $index;
 $index == 0;
 ;;
 my @ra = qw(foo bar);
 print $ra[$index];
"
Useless use of numeric eq (==) in void context at -e line 1.
Use of uninitialized value $index in numeric eq (==) at -e line 1.
Use of uninitialized value $index in array element at -e line 1.
foo