D:\PerlMonks>read1.pl
$VAR1 = [
          undef
        ];

D:\PerlMonks>