Select Code to Download

#!/usr/bin/perl
use strict;
...
while (my ($k, $v) = each (%hash)) {
    print "$k = $v\n";
}

someSubRoutine (a => 1, b => 'foo', bar => 6);

my %args = (
   a => 666,
   b => 'foo',
   @_  # or the modulus slice
);