perl: grep array against array

my @characteristic = ("LA","SF");
my @info_tony = ("LA","SF","NY");
my %seen = ();
my @union = grep { $seen{ $_ }++ } @characteristic, @info_tony;

if ( @union ) {
print "$_\n" for @union;
}