=head1 Radio use Cache::Cache; my $johnny = new Cache; my $june_carter = new Cache; my $roseanne = new Cache; /night/../r/ #### 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;