#!/usr/bin/perl
use Quantum::Superpositions;

print "What is your insult? ";
chomp (my $input = <>);

my @matching = qw/disk duck deck/;
die if ($input eq any(@matching)); # could also use @matching[0..2]