my @array = (1,2,3..9,-12);
foreach my $variable (@array) {
    print "$variable is in the list\n";
}
[download]

That something like what you want?

Update: Oops, looks like I didn't really understand what you wanted, everyone else's suggestions are better :)