my %hash = ();
foreach my $element (@list1) {
    $hash{$element}++;
}