use Data::Diver 'Dive';
print Dive($hash, qw(wheels four truck utility muni));