VERTEX: while ($line1 = <FHV>) {
    if ($line1 == $ek) {
#        print "BLOCK END\n";
        $line1 = <FHV>;
        if ($line1 = eof) {
            last VERTEX;
        }
    }
    my @vertex = (
               scalar($line1),
               scalar(<FHV>),
               scalar(<FHV>),
               scalar(0) );
    $vertexcount = $vertexcount + 1;
    chomp @vertex;
    push @datavertex, \ @vertex;
}