Select Code to Download

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