$hash1{$key}= "$metric1;$metric2;$metric3";

##</code><code>##

print $name2, $hash{$name2}, ";", $metric4, "\n" if exists $hash{$name2};

##</code><code>##

        $line1 =~ /(.*?)\,(.*?)\,(.*?)\,(.*?)\,(.*?)\,(.*)/;
        $description1 = $1;
        $cktsizetemp1 = $2;
        $bits1 = $3; 
        # print "$3\n";
        $availability1 = sprintf("%.2f", $4);
        $bitsin1 = $5;
        $bitsout1 = $6;

##</code><code>##

my ($description1, $cktsizetemp1, $bits1, $availability1, $bitsin1, $bitsout1)
     = split /,/, $line1;
$availability1 = sprintf("%.2f", $availability);