package UndefKey;
sub TIEHASH { bless [], __PACKAGE__ }
sub FIRSTKEY { undef }
sub NEXTKEY { undef }
sub FETCH { 1 }

package main;
#my %h = ( undef() => 1 );
tie my %h, 'UndefKey';