What I was really trying to do is a recursive function. Thanks,

 fact ('16000');
 my $level = 0;
 my $ord = 0;
 sub fact {
      my $val = $_[0];
       my $ch = $hash{$val};
       my @chs = split(',',$ch);
       print ' 'x$level x 3,$val," ",$_[0]," ",$level," ",$ord++,"\n";
      if ($ch) {
         $level++;
         foreach my $ch1(@chs){
             fact($ch1);
             delete $hash{$ch1};
         }
         $level--;
      } 
 }
[download]