use warnings;
use strict;

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

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

print $drink;