Select Code to Download

#....
    my @accum;
...
    }    
    print "ACCUM: ";
    print Dumper \@accum ;  # Problem here

$VAR1 = 
       [
...
         [$VAR1->[0][1][3]]]
       ];

#!/usr/bin/perl -lw
use strict;
...
    my    $arr    = shift;
    return map{ [split(" ",$_)] }@{$arr};
}