use Anaesthethic::General;

$feelingFine=true;
my @wisdomTeeth = (grep /^Wisdom/ (keys %teeth))
foreach my $wisdomTooth (@wisdomTeeth){
    delete $teeth{$wisdomTooth};
}
sleep(10800) if $prescription->filled or $pain > THRESHOLD;
while($pain != 0){
    $feelingFine = false unless ($prescription->pills > 0);
}