Help for this page
use strict; use warnings; ... bar(oranges => 18); print bar("bananas"), "\n"; print bar("oranges"), "\n";
sub bar { my $key = shift; ... }; $Bar{$key}; };
Ceramics Glass Wood Metal Plastic Paper Banana leaves Something else
Results (440 votes), past polls
