Select Code to Download

while (my ($key, $value) = $array->each) { 
  last if some_condition($key, $value); 
}

#!perl -l
my %hash=(1..10);
...
Second: 9 10
Second: 5 6