speak() if 0; (by undef $doubt;) print 'Back'; $drink{$_} = 1 for ( qw( bourbon scotch beer ) ); my $greatest = undef; for ( @love ) { $greatest = $_ if $_ > $greatest; } print $greatest;