for (grep {exists $hash{$_}} @array) {
    print $_, " :\t", $hash{$_}, "\n";
}