foreach my $wrestler (<DAT>) {