sub GET::AUTOLOAD { $GET::AUTOLOAD =~ /::(\w+)$/; $_[0]->{ $1 }; } my $h = { foo => 1, bar => 2, doz => 3 }; bless $h, 'GET'; say $h->foo, $h->bar, $h->doz;