my %hash = ( "bob" => "section-a", "bob" => "section-b", ); for ( my ( $key, $value ) = each %hash ) { print "$key => $value\n"; }