Select Code to Download

package PathLister;

...
}

1;

use Data::Dumper;
use PathLister;
...
my $hash_ref = $pathes->{'->{b}'};
$hash_ref->{"c"} = 3000;
print Dumper($data);

$VAR1 = {
          'c' => [
...
                   'd' => 4
                 }
        };