Help for this page

Select Code to Download

Select or download this

$\ = "\n";

...
   print shift(@data);           # abc
   print @{$hoa{head}};          # abcdef -> BAD!
}