my @sorted_vfs = sort { $a->start() <=> $b->start() } @vfs; 
foreach my $vf (@sorted_vfs){
    print $vf->start(), "\n";
}#end for each