use 5.9.5;

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