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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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