Select Code to Download

#!/usr/bin/perl -w

...
my @matching = qw/disk duck deck/;

if ($input eq $matching[0..2]) {die "bastard\n"};

Argument "" isn't numeric in array element at ./b line 10, <> line 1.

#!/usr/bin/perl -w

...
my @matching = qw/disk duck deck/;

if ($input eq $matching[0]) {die "bastard\n"};