package Tie::PerFH;

my %value;

sub TIESCALAR { bless do { \my $x }, shift }
sub FETCH { $value{select()}{$_[0]} }
sub STORE { $value{select()}{$_[0]} = $_[1] }

1;