$dbm->filter_fetch_key (sub { $_ = $self->_normalizeCharset($_); }); sub _normalizeCharset { my $self = shift || Carp::croak(...); #return shift; return ...::windows2utf(shift); }