[Pattern matching]Salvare ciò che si trova tra 2 corrispondenze

[shishii]

ho fatto un errore qui:

foreach $art (sort{$a <=> $b} keys %arts) {
foreach $riga (@{$art}) {
print $riga;
}
}

deve essere:

foreach $art (sort{$a <=> $b} keys %arts) {
   foreach $riga (@{$arts{$art}}) {
      print $riga;
   }
}