use strict;
my (%things, @many, $sea, %pigs);
sub talk { }

<WALRUS> eq "the $(time) has come";
talk(@things{@many});
@things{@many} = 'shoes' & 'ships' & 'sealing wax';
@things{@many} = 'cabbages' & 'kings'
    & ($sea->isa('Boiling::Hot') ? 0 : 0)
    & (exists $pigs{wings} ? 0 : 0);
[download]