func    c4_2060/bump           250.00        2000.00       -1750.00  (VIOLATED)
func    c4_2061/bump           250.00        2000.00       -1750.00  (VIOLATED)
func    c4_2062/bump           250.00        2000.00       -1750.00  (VIOLATED)
func    c4_2063/bump           250.00        2000.00       -1750.00  (VIOLATED)
func    c4_2064/bump           250.00        2000.00       -1750.00  (VIOLATED)
func    c4_2065/bump           250.00        2000.00       -1750.00  (VIOLATED)
and so on..

##</code><code>##

c4_2*/bump,250.00,2000.00,"Justification","Waived,by","Waived,Date","Approved,by","Approved,date"
c4_2070/bump,250.00,2500.00,"Justification","Waived,by","Waived,Date","Approved,by","Approved,date"

##</code><code>##

func    c4emib_2060/bump           250.00          2000.00         -1750.00  (WAIVED)
func    c4emib_2061/bump           250.00          2000.00         -1750.00  (WAIVED)
func    c4emib_2062/bump           250.00          2000.00         -1750.00  (WAIVED)
func    c4emib_2063/bump           250.00          2000.00         -1750.00  (WAIVED)
func    c4emib_2064/bump           250.00          2000.00         -1750.00  (WAIVED)
func    c4emib_2065/bump           250.00          2000.00         -1750.00  (WAIVED)
func    c4emib_2066/bump           175.00          2000.00         -1825.00  (WAIVED)
func    c4emib_2067/bump           250.00          2000.00         -1750.00  (WAIVED)
func    c4emib_2068/bump           250.00          2000.00         -1750.00  (WAIVED)
func    c4emib_2069/bump           250.00          2000.00         -1750.00  (WAIVED)
func    c4emib_2070/bump           250.00          2000.00         -1750.00  (WAIVED)
func    c4emib_2071/bump           250.00          2000.00         -1750.00  (WAIVED)
func    c4emib_2072/bump           250.00          2000.00         -1750.00  (VIOLATED)
func    c4emib_2073/bump           250.00          2000.00         -1750.00  (VIOLATED)
func    c4emib_2074/bump           250.00          2000.00         -1750.00  (VIOLATED)
func    c4emib_2075/bump           250.00          2000.00         -1750.00  (VIOLATED)


##</code><code>##

#! /tools/perl/5.8.8/linux/bin/perl

use strict;
use warnings;
use Data::Dumper;

# Source script
my $report = $ARGV[1] ;
my $waiver = $ARGV[3] ;
my $result = $ARGV[5] ;

# Set up a hash to receive the information
my %identifier = ();

# Read the violations file into the hash
open my $filter, '<', $waiver or die;
while (my $vline = <$filter>) {
    next unless $vline =~ /\S/; #skip blank lines
    my ($pins2, $threshold2, $newthreshold2) = split /,/, $vline;
    #$pins2 =~ s/\*/.*/g;
    $identifier{$pins2}{'threshold2'} = $threshold2;
    $identifier{$pins2}{'newthreshold2'} = $newthreshold2;
}
print Dumper \%identifier;

# Read input file line by line and compare 2 files
open my $input, '<', $report or die;
open my $output, ">", $result or die;
while (my $wline = <$input>){
    my ($scenario, $pins1, $threshold1, $newthreshold1, $diff, $status) = split /\s+/, $wline;
       # overwrite values if match
    if (exists $identifier{$pins1}) {
	if ( ($threshold1 == $identifier{$pins1}{'threshold2'}) && ($newthreshold1 <= $identifier{$pins1}{'newthreshold2'}) ) { 
	$status = '(WAIVED)';
        }
    }
    printf $output "%-44s   %-24s   %-8s        %-8s        %-8s  %-10s\n", $scenario,    $pins1,     $threshold1,         $newthreshold1,        $diff,  $status;
}
close $filter;
close $input;
close $output;