#!/usr/bin/perl

use strict;

my @answers = ( 'me', 'you' );
print "Who needs more help, me or you? ";
my $response = <STDIN>;
if ( $response eq $answers[0] ) {
    print "Good luck with that.\n";
}
elsif ( $response eq $answers[1] ) {
    print "So help me!\n";
}
else {
    print "huh?\n";
}