$drink = 'unknown';
$drink = 'non alky' if $punter eq 'coffee';
$drink = 'alky' if $punter eq 'beer';
$drink = 'proper alky' if $punter eq 'whisky'