Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    bar(oranges => 18);
    print bar("bananas"), "\n";
    print bar("oranges"), "\n";
    
  2. or download this
    sub bar {
        my $key = shift;
    ...
        };
        $Bar{$key};
    };