#!/usr/bin/perl -w
use strict;

my %foo = (
    camshaft   => 'lumpy',
    gearbox    => 'shifty',
    drivetrain => 'speedy',
    smokestack => 'dirty',
    lights     => 'bright eyes',
);