$timing1{$related_pin}{$timing_type}{$rise_fall}{$pinname} = $delay; }

foreach my $rName ( keys %timing1 ) { 
foreach my $tType ( sort keys %{$timing1{$rName}}) {	
foreach my $rF ( sort keys %{$timing1{$rName}{$tType}}){	
foreach my $pinName ( keys %{$timing1{$relName}{$tType}{$rF}}) {
foreach my $delay(sort {$timing1{$relName}{$timeType}{$rF}{$pinName}{$a} <=> $timing1{$rName}{$tType}{$rF}{$pinName}{$b} }keys %timing1){ 
print OUTFILE2 " $pinName\t $rName\t $tType\t $rF\t $timing1{$rName}{$tType}{$rF}{$pinName} \n";

}
}
}
}
}