Select Code to Download

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";

our @bob;
my %hash;
$hash{a} = 'bob';
$hash{a}[0] = 1;
print "\@bob contains: [@bob]\n";