permute { $temp = join(',',@n); $arrangement{$temp} = undef;} @n;
# create the hash here        --^^^^