Мега связка Perl+Oracle

DBD-Oracle-1.19\README.win32.txt
1)...
8) Enough Downloading and installing go have a coffee.

А перед этим мы скачали все что только можно от МС(Microsoft Visual Studio 2005,Windows SDK, Microsoft .Net framework 1.1) - опенсорс, мля.

PS не нужно воспринимать сей пост серьезно
PSS хотя...

Странности перла

Что вы подумаете должен вернуть ниже приведенный код?

bbb?
неа
b0b

Спасибо другу-перловику - он удержал мой мозг на месте:

There is a single iterator for each hash, shared by all each(), keys(), and values() function calls in the program; it can be reset by reading all the elements from the hash, or by evaluating keys HASH or values HASH

Интересно, чего стоит этот пустой keys(%$f___ed_hash);

my $f___ed_hash = {
  1=>'a',
  2=>'b',
  3=>'c'
};

sub eb___ya_sub {
  keys(%$f___ed_hash);
  while (my ($n,$w)=each(%$f___ed_hash)){
    if($n==2) {
      return $w;
    }  
  }
}

print &eb___ya_sub;
print &eb___ya_sub;
print &eb___ya_sub;