Select Code to Download

use strict;
use warnings;
...

my $h = {blonk => 2, foo => 3, squink => 5, bar => 8};
slice_by_ref($h);

$VAR1 = {
          'foo' => 3,
          'bar' => 8
        };