Select Code to Download

sub traverse {
    my ($hash, $callback, $mode) = @_;
...
        }
    }
}

$VAR1 = {
          '1' => [
...
                   }
                 ]
        };