Select Code to Download

#! perl
use strict;
...
$Data::Dumper::Sortkeys = sub { [ sort grep { /^Fred|Barney$/ } keys %
+{$_[0]} ] };

print Dumper \%hash;

23:01 >perl 1116_SoPW.pl
$VAR1 = {
...
        };

23:01 >