
BEGIN { 
  # Make enumerated constants
  my $i = 1;
  my $caller = caller;
  for (qw(Pair Three Straight Flush Full Four StrFlush Five))  {
    my $q = $i++;
    *$_ = sub () { $q };
  }
}
use strict 'subs';

$x = Foo;
$y = Bar + Baz;
print "$x $y\n";
print "OK!\n" if Foo + 2 == Baz;

# $z = foo;
