...
eval "sub main::LVL$_ () {$debug{$_}}"
...