#!/usr/bin/perl

use strict;
use warnings;

my %have;
chomp, $have{$_}++ while <>;
rmdir or warn "Can't remove `$': $!\n"
  for grep /^t\d+$/ && !$have{$_} && -d, <*>;

__END__