Select Code to Download

use strict;
use warnings;

...
%h = map { $_ => $h{$_} } @to_keep;

print Dumper \%h;