Select Code to Download

use strict;
use Data::Dumper;
...
}

print Dumper \%thingy;

my (@list,$flat);
flatten($_,$thingy{$_}) foreach keys %thingy;
...
}

print Dumper \@list;

$VAR1 = [
  'Location/',
  'Topology/IPClassA/Device/log_ratio/'
];