Select Code to Download

for (keys  %$start) {
  my @all = ($_, keys %{$start->{$_}});
...
  push @$end, [ @all ]
    unless $processed;
}

my $start =
  {
...
   c => {d => 2},
   d => {a => 1}
  };