#!/usr/bin/perl
*alias0 = *_;
*alias1 = \$_;

@F = qw(A B C D);
s//Sample/;
$x = '%';

do {
    local $_ = 999;
    print "do: ( $_ $alias0 $alias1 )\n";
};

foreach (@F) {
    print $_;
    *_ = *x;
    print " : ( $_ $alias0 $alias1 )\n";
}

##</code><code>##

do: ( 999 999 Sample )
A : ( % A Sample )
% : ( % B Sample )
% : ( % C Sample )
% : ( % D Sample )