Select Code to Download

sub extract {
   my ($rez) = @_;
...
    my ($tgt, $dev, $val) = @$_;
    ...
}

sub walk(&@) {
   my ($cb, $rez) = @_;
...
    my ($tgt, $dev, $val) = @_;
    ...
} \%rez;