Select Code to Download

sub baz { return 11 unless shift }

...
__END__
baz(5): 5
baz(0): 11

my @a = ( qw (onexxx txwxo txhrexe xfourx xxx five) );
my @b = map {
...
          'four',
          'five'
        ];

$VAR1 = [
          'one',
...
          '',
          'five'
        ];