perl -Mstrict -Mwarnings -le '%_ = ( foo => 1, bar => 2 ); print "$_ = $_{$_}" for keys %_'