jan 2.76
feb 3.20
mar 1.6
apr 4.00

##</code><code>##

$empty[0] ="";
open (VER,$f_name);
while (defined ($rows = <VER>))
    {  
    chomp($rows); 
    ($rows1,$rows2)=split(/\ /,$rows);  
    $names[$l]=$rows1;
    $versions[$l]=$rows2;
    
    if ($names[$l] != $empty[0] ) #HOW should this be done???
        {
	$l++;
		}                    
    } 
close VER;