Help for this page
if ($_ =~ $identifier{$pins1.}) {
$vline =~ s/^\S+//; #trim leading space
my (undef,$scenario, $pins1, $threshold1, $newthreshold1, $diff, $stat +us) = split /\s+/, $wline;
#! /tools/perl/5.8.8/linux/bin/perl ... close $input; close $output;