for my $number (@{$arrays->{$array_name}}) { 
    $result->{$number}{$array_name} = 1;
}