In Perl 6 you will be able to...

And before that comes out (*ducks*), you'll be able use smart matching in perl 5.10:

use 5.9.5;

my $var = shift;
my @f = (1,2,3,5,8,13,21);
print "fibo!" if $var ~~ @f;
[download]