[perl] 支持对key正则匹配查询值的hash

        use Data::Dumper;
        use Tie::Hash::Regex;
        my %h;


        sub uniq {
            my %seen;
            return grep { !$seen{$_}++ } @_;
        }


        tie %h, 'Tie::Hash::Regex';


        $h{key}       = 'value';
        $h{key2}      = 'another value';
        $h{key3}      = 'another value';
        $h{key3.2} = 'another value2';
        $h{stuff}     = 'something else';


        my $pat    = "^key";
        my @vals   = tied(%h)->FETCH($pat);


        my @result = uniq(@vals);


        print Dumper(@result);


        delete $h{k};    # deletes $h{key} and $h{key2};