Select Code to Download

#! /usr/bin/perl

...
          'c' => 'x',
          'a' => 'z'
      };

my @to_keep = qw{ a c };
my %keepers;
...
          'c' => 1,
          'a' => 1
        };

my @to_keep = qw{ a c };
my %keepers;
...
$keepers1 = {
          'a' => 'c'
        };