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