use strict;
use warnings;
$/="\n\n";
my %seen;
while(<DATA>){
  print unless $seen{$_}++;
}
__DATA__
a

b

b

a