sub print_menu 
{
    my ( $href ) = @_;
    print "$_\t", $href->{$_}, "\n"
        for ( sort keys %{ $href } );
}