foreach (sort keys %TV ) {
    print "$_\n";
}