sub tiebless { my %x; tie %x,shift; return bless \%x,shift; }