> А использовать идентификаторы, НЕначинающиеся с символа "$", ещё не разрешили?
> $ cat NoSigils.pm

package NoSigils;

use Filter::Simple;
use strict;

our %sw = qw'
    SCALAR    $
    ARRAY    @
    HASH    %
    CODE    &
    GLOB    *
    REF        $
';

FILTER {
    while( my ($k, $v) = each %sw){
    s/(?:$k\_OF|$k\_)/$v/g
    }
};

> $ cat test.pl

#!/usr/bin/perl

package main;
use strict;

use NoSigils;

my (HASH_h, SCALAR_a, SCALAR_b) = qw/a s d f/;
my REF_r = \HASH_h;

while (my (SCALAR_a, SCALAR_b) = each HASH_OF REF_r) {
    print "key: SCALAR_a  => SCALAR_b\n";
}

GLOB_xyz = sub {
    print "sub xyz called\n";
};

my REF_to_glob = \GLOB_xyz;

GLOB_deref = GLOB_OF REF_to_glob;

xyz();
deref();

> $ perl test.pl

key: a  => s
key: d  => f
sub xyz called
sub xyz called

Не благодари.