while (<>) {
   my ($key) = /^(..)/s;
   print if !$seen{$key}++;
}