@pets{@$_} = @hash{@$_} for [qw(dog cat)];