use warnings;
use strict;

my $drink;
my $punter = 'coffee';

if($punter eq 'coffee'){ $drink = 'non alky'; }
if($punter eq 'beer'){ $drink = 'alky'; }
if($punter eq 'whisky'){ $drink = 'proper alky'; }
else { $drink = 'unknown'; }

print $drink;