Select Code to Download

$ perl -wE 'my $vals; my $y = index($vals, "x")'
Use of uninitialized value $vals in index at -e line 1.
$ perl -wE 'my $vals; my $y = index("x", $vals)'
Use of uninitialized value $vals in index at -e line 1.