if (scalar grep { $expire ne $_ } @values)  { die "Don't tamper with me!"; }