use Data::Dump::Streamer;
use Data::Dumper;
my ($x,$y,$z);
print Dump($_,$x,$y,$z),"\n" for $x,$y,$z;
print Dumper($_,$x,$y,$z),"\n" for $x,$y,$z;
__END__
$VAR1 = undef;
alias_ref(\$VAR2,\$VAR1);
$VAR3 = undef;
$VAR4 = undef;

$VAR1 = undef;
$VAR2 = undef;
alias_ref(\$VAR3,\$VAR1);
$VAR4 = undef;

$VAR1 = undef;
$VAR2 = undef;
$VAR3 = undef;
alias_ref(\$VAR4,\$VAR1);

$VAR1 = undef;
$VAR2 = undef;
$VAR3 = undef;
$VAR4 = undef;

$VAR1 = undef;
$VAR2 = undef;
$VAR3 = undef;
$VAR4 = undef;

$VAR1 = undef;
$VAR2 = undef;
$VAR3 = undef;
$VAR4 = undef;