Don't you need to dereference the hash value to get the array slice to work?

    map { join "\0", @{ $hash{$_} }[0,1,2], $_ }
[download]