#! 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;