our $red = 10;
our $green = 6;
my $apples = 'red';
$$apples--;  # eat an apple
print "I've got $red red apples, and $green green ones.\n";