my $a;
my $r = tied($a)
