Select Code to Download

my %net = ( ... );
my $start = '1.2.3.4';
...
    unshift @list, @{ delete $$net{ $curr } };
    return "$curr->" . find_pathr( $net, $end, @list );
}