Select Code to Download

  while( my($lk,$lv) = each %$loc_file ) {
    my $flag = 0;
...
      # same as above, but in other direction...
    }
  }

  while ( my ($lk, $lv) = each %$loc_file ) {
    if ( !exists( $$rem_file{$lk} or $$rem_file{$lk < $lv ) {
...
  for my $rk ( keys %$rem_file ) {
    # do a get...
  }