Select Code to Download

    #!/usr/bin/perl -wl

...
    baz     => 3
    bar     => RED
    boo     => 5.6

    #!/usr/bin/perl -wl

    use strict;
...
    my %h = map {$_%2 ? $a[$_] : lc $a[$_]} 0..$#a;

    print $_, "\t=> ", $h{$_} for keys  %h;