package MyUtils;
use base Exporter;

our @EXPORT = qw(LVL1 LVL2 LVL3 debug);

sub debug {
  print "$_\n" for @_;
}

my $count_of_levels = 3;
our %debug = ( # fake initialization
  1 => 1, 2 => 1, 3 => 0
);
for (1 .. $count_of_levels) {
  eval "sub LVL$_ () {$debug{$_}};";
}

1;