foreach my $key (sort keys %hash) { #Assign $inc with hash value my $inc1 = @{$hash{$key}}[1]; my $inc2 = @{$hash{$key}}[2]; my $inc3 = @{$hash{$key}}[3]; my $inc4 = @{$hash{$key}}[4]; my $inc5 = @{$hash{$key}}[5]; my $inc6 = @{$hash{$key}}[6]; my $inc7 = @{$hash{$key}}[7]; my $inc8 = @{$hash{$key}}[8]; my $inc9 = @{$hash{$key}}[9]; my $inc10 = @{$hash{$key}}[10]; my $inc11 = @{$hash{$key}}[11]; my $inc12 = @{$hash{$key}}[12]; # Does current hash key value equal C_CLK_and_SCANCLK_L__IN if ( @{$hash{$key}}[0] eq "C_CLK_and_SCANCLK_L__IN" ) { $count_C_CLK_and_SCANCLK_L__IN++; print $outfile1 "\"$DIN_SETUP_RISE_1[0] + $inc3, ",", $DIN_SETUP_RISE_1[1] + $inc3, ",", $DIN_SETUP_RISE_1[2] + $inc3, \", \n"; print $outfile1 "\"$DIN_SETUP_RISE_2[0] + $inc3, ",", $DIN_SETUP_RISE_2[1] + $inc3, ",", $DIN_SETUP_RISE_2[2] + $inc3, \", \n"; print $outfile1 "\"$DIN_SETUP_RISE_3[0] + $inc3, ",", $DIN_SETUP_RISE_3[1] + $inc3, ",", $DIN_SETUP_RISE_3[2] + $inc3, \", \n"; } }