Select Code to Download

my %current,%last;

...
  $changes{$k} = $current{$k} unless
      $current{$k} eq $last{$k};
}

my %current,%last,%keys;

...
   next unless(exists $current{$k});
   $keys{$k} = 1;
}