Select Code to Download

#!/usr/bin/perl

use strict;
...

permute {$key = join '',@array;$perm{$key} = 1} @array;
print scalar %perm;