Select Code to Download

use warnings;
use strict;
...
use Data::Dumper;
print " 0\n".Dumper(\@o0);
print "-1\n".Dumper(\@om1);

 0
$VAR1 = [];
...
          '',
          ''
        ];