push @data, V(split) while <$in_fh>;

##</code><code>##

while (<$in_fh>) {
	my @points = split;
	push(@data, V( @points[0,1,2] ), V( @points[3,4,5] ) );
}