while (defined ($rows = <VER>)) {  
    chomp($rows);
    next if ($rows eq '');   # this'll skip blank lines 
    ($rows1,$rows2)=split(/\ /,$rows);  
    $names[$l]=$rows1;
    $versions[$l]=$rows2;
}