Try this code

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