And yet another way...

use strict;
use List::MoreUtils qw(any);

my @list = (1,2,3..9,-12);
my $i = -5;

print "$i is a " . join(',', @list) . "\n"
  if any { $_ == $i } @list;
[download]