Here's an even shorter version: =)

@$a{ keys %b } = values %b;