Select Code to Download

use strict;
use Algorithm::Loops qw( NextPermute );
...
for my $len ( 1..@digs ) {
    Biggest( $len, @map{ @digs } );
}

f
7e
...
fedcba1932547
fedcb97a645183
fedcba384952716

use strict;
use Algorithm::Loops qw( NextPermute );
...
    Biggest( $len, @map{ @five } )   if  $len <= @five;
    print "\n";
}