Select Code to Download

#!/usr/bin/perl -w
use strict;
...
sub goodbye {
  print "bye";
}

 for my $key(%HoL) {
  &{$HoL{$key}[0]};
 }