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


##</code><code>##

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


##</code><code>##

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

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


##</code><code>##

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