foreach $vard (sort {$a <=> $b} (keys(%anc))) {