I much prefer readability over code density (although I'm happy to use slices, I often find I have to stop and think about them when I come back to them). So

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

is how I'd do it

Edit: Got rid of "concise". It did not convey my meaning very well :(