my $size = 1000;
my $tsize = $v->get_property('size');
my $f = $l->create("$file",'f');