Select Code to Download

#!/usr/bin/perl

...
    add_chain( $flat_hash, $chain, $seen, $current_key );
  }
}

$VAR1 = {
          '6' => 4,
...
                          }
                 }
        };