Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    smokestack => 'dirty',
    lights     => 'bright eyes',
);

my %bar;
@bar{ qw/camshaft gearbox1 the_drivetrain _other/ } = '';

my %map_foo_to_bar = (
    camshaft   => 'camshaft',
...
    smokestack => 'my_smokestack',
    junkyard   => '_junkyard',
);

sub schlep($$$)
{
...

use Data::Dumper;
print Dumper \%bar;