Select Code to Download

use Data::Dumper;

...
  push @{$new{$top}}, $_ for keys %{$orig{$top}};
}
print Dumper \%new;

$VAR1 = {
          'abc,def' => [
...
                         ',,,item4'
                       ]
        };