for my $key (keys %{$car}){
    print "$key -> $car->{$key}\n";
  }