> perl -e '
use Data::Alias;
my @local_vars=(undef,undef,undef);                 
alias my ($a, $b, $c) = @local_vars;
$b=1;
'