#! perl
use strict;
use warnings;
use Data::Dumper;

my %hash = (Fred => 'Wilma', Barney => 'Betty', Homer => 'Marge');

$Data::Dumper::Sortkeys = sub { [ sort grep { /^Fred|Barney$/ } keys %{$_[0]} ] };

print Dumper \%hash;

##</code><code>##

23:01 >perl 1116_SoPW.pl
$VAR1 = {
          'Barney' => 'Betty',
          'Fred' => 'Wilma'
        };

23:01 >