Select Code to Download

$commands{$cmd}{function}($param)

$commands{$cmd}->{function}->($param)

$ perl -MO=Deparse -e 'print $a{funclist}[0](4);'
print $a{'funclist'}[0](4);
...
$ perl -MO=Deparse -e 'print $a{funclist}->[0]->(4);'
print $a{'funclist'}[0](4);
-e syntax OK

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/