Select Code to Download

# Sorry about the MANY keyword - I would choose a better name
# for the secondary data, but I have no clue what would make
...
                         MANY => []
                       }
              );

for ( @array1 ) {
  my ($id,$name,$ref) = split /,/;
...
  }
  push @{$keyhash{$id}{MANY}}, [ $name, $ref ];
}

# A little something to get the plurality correct
for ( keys %keyhash ) {
...
    $num,
    $num > 1 ? "times" : "time";
}