$ perl -d 1.japh.pl jesophat
...
  DB<1> source 3.2.txt                                                          
1.japh.pl*      2.seq.txt       3.2.txt         4.seq.txt       _Sub::Genius/
1.seq.txt       3.1.txt         3.seq.txt       5.seq.txt
  DB<1> source 3.2.txt 
>> M

'FLAT.pm' => '1.0.4 from /usr/local/share/perl/5.30.0/FLAT.pm'
'FLAT/DFA.pm' => '/usr/local/share/perl/5.30.0/FLAT/DFA.pm'
'FLAT/DFA/Minimal.pm' => '/usr/local/share/perl/5.30.0/FLAT/DFA/Minimal.pm'
'FLAT/FA.pm' => '/usr/local/share/perl/5.30.0/FLAT/FA.pm'
'FLAT/NFA.pm' => '/usr/local/share/perl/5.30.0/FLAT/NFA.pm'
'FLAT/PFA.pm' => '/usr/local/share/perl/5.30.0/FLAT/PFA.pm'
'FLAT/Regex.pm' => '/usr/local/share/perl/5.30.0/FLAT/Regex.pm'
'FLAT/Regex/Op.pm' => '/usr/local/share/perl/5.30.0/FLAT/Regex/Op.pm'
'FLAT/Regex/Parser.pm' => '/usr/local/share/perl/5.30.0/FLAT/Regex/Parser.pm'
'FLAT/Regex/WithExtraOps.pm' => '/usr/local/share/perl/5.30.0/FLAT/Regex/WithExtraOps.pm'
'FLAT/Symbol.pm' => '/usr/local/share/perl/5.30.0/FLAT/Symbol.pm'
'FLAT/Symbol/Regex.pm' => '/usr/local/share/perl/5.30.0/FLAT/Symbol/Regex.pm'
'FLAT/Transition.pm' => '/usr/local/share/perl/5.30.0/FLAT/Transition.pm'
'FLAT/Transition/Simple.pm' => '/usr/local/share/perl/5.30.0/FLAT/Transition/Simple.pm'

>> b 82
>> c
plan: "begin A P J H end" <<<

Execute:

main::J(1.japh.pl:82):	    return;
>> y
$GLOBAL = HASH(0x557b5132e420)
   'A' => 'just'
   'J' => 'perl'
   'P' => 'Another'
$persist = HASH(0x557b5251d3b8)
   'akctual' => 'perl'

$private = HASH(0x557b5251d298)
     empty hash
$scope = HASH(0x557b524e0fd8)
   'contrib' => ARRAY(0x557b5132e3d8)
      0  'just'
      1  'Another'
      2  'perl'
   'curr' => 3
   'japh' => ARRAY(0x557b510bec80)
      0  'just'
      1  'Another'
      2  'perl'
      3  'Hacker,'
$sq = Sub::Genius=HASH(0x557b5214ad38)
   'DFA' => FLAT::DFA=HASH(0x557b524d2410)
      'ALPHA' => HASH(0x557b524e1a28)
         'A' => 8
         'H' => 8
         'J' => 8
         'P' => 8
         'begin' => 1
         'end' => 1

   'preplan' => '[begin]([J]&[A]&[P]&[H])[end]'
   'preprocess' => 1
>> c
just Another perl Hacker,

... actual contributions of each sub ...
  H() => Hacker,
  P() => Another
  A() => just
  J() => perl
Debugged program terminated.  Use q to quit or R to restart,