I prefer the Three Stooges method:

use Beverage::Adult::Scotch;
use Thing::Door;
use Thing::String;
use Thing::Hammer;

$feelingFine=true;
my @wisdomTeeth = (grep /^Wisdom/ (keys %teeth);
my $front_door  = new Thing::Door;
my $string      = new Thing::String;
my $bottle      = new Beverage::Adult::Scotch;
my $result      = undef;

foreach my $tooth (@wisdomTeeth){
    $front_door->attach($tooth, $string);
    my $how_hard = 10;
    unless ($result) {
        $bottle->take_shot();
        $how_hard++;
        if ($how_hard < 20) {
            $result = $front_door->slam($how_hard);
        } else {
            $ballpean = new Thing::Hammer;
            $result = $ballpean->whack($tooth);
        }
    }
    delete $wisdomTeeth{$tooth};
}
while($pain != 0){
    $bottle->take_shot();
}
[download]

()-()
 \"/
  `