if (/Path Group:\s+(\S+)/) { 
                    $temp = $1; 
                    $temp =~ s/(\*)+//g ; 
                    $count_{$temp}++;  
                                        $PG{"$temp"}{$start_end_brckt} 
+ = "$start_brckt$end_brckt";  
                    }  
                if (/slack\s+\(VIOLATED\)/) { 
            chomp $_ ; 
            $_ =~ s/slack\s\(VIOLATED\) \s+//g ; 
            $_ =~ s/\s+//g;         
        #    $start = 0; 
            $PG{"$temp"}{"$start_end_brckt"}{$slack} = $_ ;  
             
                        print "\nPathGroup :: $temp\n"; 
                           print "Pathname :: $PG{$temp}{$start_end_br 
+ckt}\n"; 
            print "slack : :$PG{$temp}{$start_end_brckt}{$slack}\n\n"; 
+   
                        $start = 0; 
                        $end = 0; 
                        $start_brckt = 0; 
                        $end_brckt = 0; $slack ++; $start_end_brckt ++ 
+; 
            }   
}  
    foreach my $pathgroup1 ( keys %PG) {       
        foreach my $path1 ( keys %{$PG{$pathgroup1}}) {    #print"hell 
+o"; 
            foreach my $path2 ( keys %{$PG{$pathgroup1}{$path1}}) { 
            print "\t$pathgroup1 :: $path1 :: $path2  \t\n";     
        
    } 
} } 
 
----------------------------------------------------------------report 
+ file------------------------------------ 
Startpoint: abc 
              (input ) 
  Endpoint: xyz 
            (rising ) 
  Path Group: hello 
  Path Type: max 
 
  Point                                                   Incr       P 
+ath 
  -------------------------------------------------------------------- 
+------ 
  data required time                                                 1 
+.26 
  data arrival time                                                 -3 
+.24 
  -------------------------------------------------------------------- 
+------ 
  slack (VIOLATED)                                                  -1