And for those w32-ites (-ers ?) searching for Data::Alias using ppm; so sorry, not yet, AFAIK.

But it is, of course on CPAN, or -- as an alternative, this piece of the code therein, for this particular evolution, appears to work when cast as a sub, like so:

sub alias {
    use base 'Exporter';
    use base 'DynaLoader';

    our @EXPORT = qw(alias);
    our @EXPORT_OK = qw(alias copy deref);
    our %EXPORT_TAGS = (all => \@EXPORT_OK);
    pop our @ISA;
}
[download]

and called like so: alias(@B);

which highlights another of my many blindspots! Can someone enlighten me as to how much more of the 400+ line source (mostly POD) can be eliminated or sidestepped? I've read and understood jwkrahn's solution (below) but reading the docs for D::A, Exporter, Dynaloader left me about as clueless as when I began.

Or is the joke on me because I missed the joke?