use Car;

my @cars = Car->loadFrom( 'cars.dat' );
my $partial = Car->new( horsepower => 200 );
my @matches = Car->findMatching( \@cars, $partial );

print $_->details for @matches;