Select Code to Download

use Data::Dumper;
my @bigarray = (
...
print Dumper \@bigarray;  # before
...
print Dumper \@bigarray;  # after

splice @$_, 0, 1, split /\*/, $_->[0] for @bigarray;

foreach my $arr ( @bigarray ){
  my $item = shift @$arr;
  unshift @$arr, split /\*/, $item;
}