in reply to Hash slices and too many keys

%hash = map {$_ => shift @values || ''} @keys;

Sorry, couldn't think of a nice way to do it! :) But it works..