Select Code to Download

my @loop_data = ();
foreach my $array_ref(@data) {
...
     }
     push(@loop_data,{loop2=>\@inner_loop});
}

my @loop_data = map { {loop2=> [map { {var1=>$_ } } @$_ ] } } @data;