$Data{Sleep} = [
'hardly ever wakes up',
'needs twice as much sleep',
'needs half as much sleep',
'does not need sleep',
'is an insomniac',
'is a narcoleptic',
'is unable to remember the past after sleeping'
];

$Data{Eat} = [
'can not stop eating',
'needs twice as much food',
'needs half as much food',
'does not need to eat',
'is carnivorous',
'is herbivorous',
'is lethargic after eating any amount of food'
];

$Data{Drink} = [
'can not stop drinking',
'needs twice as much liquid',
'needs half as much liquid',
'does not need liquids',
'is an alcoholic',
'can not get drunk',
'is intoxicated after injesting any liquid'
];

$Data{SED} = [
sub {random("Sleep")},
sub {random("Eat")},
sub {random("Drink")},
sub {random("Sleep")." and ".random("Eat")},
sub {random("Sleep")." and ".random("Drink")},
sub {random("Eat")." and ".random("Drink")},
sub {random("Sleep").", ".random("Eat").", and ".random("Drink")}
];