%perl -w -Mstrict -e "my ($v,$s) = 'a'; print $v, $s;"
aUse of uninitialized value in print at -e line 1.