Help for this page
use warnings; use strict; ... { Foo('bar'); }
sub Foo { my %hash = ( bar => 'value' ) BEGIN; print $hash{shift(@_)}; }