my %Recipes = (
"YumYumStuff" => {
    ingredients => {
        1 => "1 Pate a Bombe",
        2 => "1/2 French Meringue",
        3 => "300ml double cream",
        4 => "3 very ripe bananas",
        5 => "2 tablespoons Creme de Banane",
        6 => "1 Bitter Chocolate Sorbet",
    },
    instructions => { 
        1 => "Whisk together the pate a bombe and the French Meringue mixtures.  They should be roughly equal in amounts by volume.",
        2 => "Lightly whip the cream to the same consistency as the pate de bombe and French Meringue mixture then mix both mixtures together",
        3 => "Finally, whisk in the banana puree and liquer.  Pour or pipe into ramekins, a long loaf tin or a large freezer container. ",
        4 => "About 30 mins before serving, transfer the parfait from the freezer to the refrigerator",
    }
} );
                    

for $recipe (keys %Recipes) {
    print "For $recipe the ingredients are :\n";
            $ref = $Recipes{$recipe}{ingredients};
            print map "$_ = $ref->{$_}\n",  sort keys %{$ref};
        }