my %hash = qw(Engine 1800cc Doors 4 Color blue);
for my $key (keys %hash){
  print "$key -> $hash{$key}\n";
}