Select Code to Download

dog,yes,string1,yes,string2
cat,no,string3
mouse,no,string4,no,string5
horse
ferret

#!/bin/perl
use strict;
...
for $venue ( keys %HoA ) {
   print FH "$venue @{ $HoA{$venue} }\n";
}