%pets = map { $_ => $hash{$_} }
        qw( dog cat );