Select Code to Download

#!/usr/bin/perl
use strict;
...
foreach $car (sort keys my %hash) {
    print "$car => $hash{$car}\n";
}

I have an engine
I have doors
...
I am private
I carry 5 passengers
I carry 50lbs