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