my %seen;
@warnings = grep { ! $seen{$_}++ } @warnings;