DB<3> print Dumper(\%Program::Plist::Pl::Pattern::);
$VAR1 = {
          'import' => *Program::Plist::Pl::Pattern::import,
          'meta' => *Program::Plist::Pl::Pattern::meta,
          'ISA' => *Program::Plist::Pl::Pattern::ISA,
          'BEGIN' => *Program::Plist::Pl::Pattern::BEGIN,
          'isa' => *Program::Plist::Pl::Pattern::isa
        };