use strict; use warnings; %_ = ( a => 1, b => 2 ); print $_ {"a"};