come potrei passargli l'hash?

[Claudio Vituzzi]

quindi per fare il foreach dovrei fare cosi':

foreach (sort (keys $%lista_txt) )
     {
      $riga = $_ . '|' . $lista_txt{$_}[0] . '|' . $lista_txt{$_}[1] . '|';
      print SCRIVI "$riga\n";
     }

vero?