print N Dumper(\%dict);

##</code><code>##

my $dict = do "cide.$alpha[$a].pl"
  or die "Couldn't load dump: $!, $@";