Help for this page
#!/usr/bin/perl -w use strict; ... sub goodbye { print "bye"; }
for my $key(%HoL) { &{$HoL{$key}[0]}; }