##
Argument "" isn't numeric in array element at ./b line 10, <> line 1.
##
##
#!/usr/bin/perl -w
use strict;
print "What is your insult? ";
chomp(my $input = <>);
my @matching = qw/disk duck deck/;
if ($input eq $matching[0]) {die "bastard\n"};