Select Code to Download

use strict;
use warnings;
...

print "spliced: @spliced\n";
print Dumper( \@spliced ), "\n";

orig aoa: ARRAY(0x183f064) ARRAY(0x18350e8) ARRAY(0x1835190) ARRAY(0x1
+835238)
$VAR1 = [
...
            '190252'
          ]
        ];