$dinner = $ham || $eggs;

##</code><code>##

$dinner = $ham or get('takeaway');

##</code><code>##

use strict;
use Data::Dumper;

my %lexicon = (
    foo => 'boink',
    bar => 'blink',
    baz => 'squirm',
);

sub
grop
{   
    my $lexlist = shift || [sort keys %lexicon];
    print Dumper($lexlist);
}
 
grop(['gump','snoop','grock']);
grop();

##</code><code>##

$VAR1 = [
          'gump',
          'snoop',
          'grock'
        ];
$VAR1 = [
          'bar',
          'baz',
          'foo'
        ];