my %check;
undef @check{1..14};

if (! exists $check{$expire}) { die "Don't tamper with me!"; }
[download]

if ($expire !~ /^(?:[1-9]|1[0-4])$/) { die "Don't tamper with me!"; }
[download]

use Quantum::Superpositions;

if ($expire != any(1..14)) { die "Don't tamper with me!"; }
[download]

and many other ways.