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