Select Code to Download

for ($i=0; $i < @keys; $i++) {
  if ($keys[$i] eq $key) {last}  # 'last' exits from the for loop
}
...
  push @keys, $key;
  push @values, $value;
}