my @sorted_vfs = sort {print "a: ",$a->start(),
                            " b: ",$b->start(),"\n";
                       $a->start() <=> $b->start() 
                      } @vfs;