sub Foo
{
    my %hash = ( bar => 'value' ) BEGIN;
    print $hash{shift(@_)};
}