1
786.582394
1480.624270
2
877.141985
1284.635536
3
779.147607
1239.355735
4
688.588015
1435.344469
5
786.582394
1480.624270
88888
6
664.833374
241.139500
7
661.222659
245.226628


##</code><code>##

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;
}