Yeah, make a different hash

RoShamBoDump( \%myhash );
sub RoShamBoDump {
    my $orig = shift;
    my @keys = qw/ ro sham bo /;
    my %new;
    @new{ @keys } = @{ $orig }{ @keys };
    use Data::Dumper;
    print Data::Dumper->new([\%new])->Useqq(1)->Dump, "\n";
}
[download]