#!perl -w
use strict;
use IO::Handle;
my $Hunger;
my %ReesesCup = ( 
                  TheLeft  => [ 'Chocolate', 'Peanut Butter', 'Fat' ],
                  TheRight => [ 'Chocolate', 'Peanut Butter', 'Fat' ],
                );
EAT:
for( each %ReesesCup )
{
    next if /The/; # Urge is there.
    chop( $_->[0] );
    chomp( $_->[1] );
    chomp( $_->[0] );
    ignore( $_->[2] ); 
}
$Hunger = defined $Hunger ? 'Not after that!' : '';
goto EAT if $Hunger;
sub ignore {} STDOUT->print( 'Yum!' );