while (my $wrestler = <$DAT>) {
  print "blabla: $wrestler";
}