my $aaa = 'bar';
my $bbb = 0;
my $ccc = undef;
my %ddd = ( eee => undef, fff => 1 );
my @iii = (undef, 1, undef, 2);

default($aaa,$bbb,$ccc,%ddd,@iii);

print "aaa=$aaa\n";
print "bbb=$bbb\n";
print "ccc=$ccc\n";
print "ddd=eee($ddd{eee}) fff($ddd{fff})\n";
print "iii=@iii\n";