sub deref { my $ref = shift; return $$ref; }