Select Code to Download

  my %h1 = %{ $_[0] }; #h2 similar

  my %h1 = (defined $_[0] and ref $_[0]) ? %{ $_[0] } : ();

  scalar grep { 
    my ($a, $b) = ( $h1{$_}, $h2{$_} );
...
      or
    $a ne $b 
  } @k1