@foo = (10); sub bar {10}; $baz = 5; $qux = 2; @quux = (); $fred = 100;
print_name 10;
print_name \10;
print_name ${\10};
print_name [10];
print_name @foo;
print_name $foo[0];
print_name bar;
print_name $baz * $qux;
print_name;
print_name undef;
print_name @quux;
print_name sqrt $fred;
print_name do {my $waldo = 10};
print_name sub {10}->();