eval "use strict;";
eval "use warnings;";
eval "print undef;";
eval 'print $x[undef];';