I've often seen this for hierarchical data -- like you have flat hash (sql results) for some type of hierarchical data. There's probably a more efficient way of doing this but basically you want to chain the keys together until you hit some base criteria. Here's a first cut attempt (using references because i find it easier): 

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my $nested_hash = {};
my $flat_hash   = {
  4 => -1,
  2 => 6,
  6 => 4,
  3 => 5,
  5 => -1,
 99 => -1,
};

print Dumper( $flat_hash );

# We need to keep track of what we've all ready chained
my $seen = {};

foreach my $key ( sort keys %$flat_hash ) {
  next if defined( $seen->{$key} );
  add_chain( $flat_hash, $nested_hash, $seen, $key );
}

print Dumper( $nested_hash );

sub add_chain {
  my( $flat_hash, $nested_hash, $seen, $key ) = @_;

  # if we've all ready added this key to the nested hash, ignore it
  return if defined( $seen->{$key} );
  $seen->{$key} = 1;

  my $current_key = $flat_hash->{$key};

  if( $current_key == -1 ) {
    # base case
    $nested_hash->{$key} = $flat_hash->{$key};
  }  else {
    # add next chain
    my $chain            = {};
    $nested_hash->{$key} = $chain;
    add_chain( $flat_hash, $chain, $seen, $current_key );
  }
}

[download]
produces: 
$VAR1 = {
          '6' => 4,
          '99' => -1,
          '4' => -1,
          '3' => 5,
          '2' => 6,
          '5' => -1
        };
$VAR1 = {
          '99' => -1,
          '3' => {
                   '5' => -1
                 },
          '2' => {
                   '6' => {
                            '4' => -1
                          }
                 }
        };

[download]
-derby

In reply to Re: How to get a ideal hash by derby
in thread How to get a ideal hash by pysome

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.