$VAR1 = { 'int' => 'float', 'brown' => 'yellow' }; #### my %dict = ( 'brown' => 'yellow', /int(\d+)/ => 'int', /float(\d+)/ => 'float', ); #### my %dict = ( 'brown' => 'yellow', $_ =~ /int(\d+)/ => 'int', $_ =~ /float(\d+)/ => 'float', ); #### my %dict = ( 'brown' => 'yellow', () => 'int', () => 'float', ); #### my %dict = ( 'brown' => 'yellow', 'int' => 'float', );