The grep can be simplified with a smart match:

for my $key (sort keys %hash) {
    say "$key = ", join ' ', map $_ ~~ $hash{$key} ? 1 : 0, @array;
}
[download]