c:\@Work\Perl\monks>perl -wMstrict -le
"my %hash;
 my %hasi = ();
 my %hasj = empty_list();
 ;;
 print scalar keys %hasj;
 ;;
 sub empty_list { return; }
"
0