my @arr1 =("fg", "dg", "tu","ph", "dgs",,"dg");
my @arr2 = ("dgs","sfd","dg","ph","rhd");

my %hash ;
$hash{$_}++ for (@arr1,@arr2) ;
print $_ ."\n" for grep {$hash{$_}>1}keys %hash ;