Доброго времени суток всем читающим!

В Python я могу написать следующий код:

codes = (0, 1, 201);
if foo in codes:
  bar(foo)

А можно ли реализовать подобное в Perl?

P.S.

my @codes = (0, 1, 201);
for (@codes)
{
  if ($_ == foo)
  {
    bar(foo);
    last;
  }
}

не предлагать