Select Code to Download

use strict;
...

print Dumper(\%mch_distro);

#!/usr/bin/perl

...
    
}

#!/usr/bin/perl

...

print Dumper(\%hash1);

#input
...
return map  { $_->[ 0 ] } sort { $a->[ 1 ] cmp $b->[ 1 ] } map  { [ $_
+, join q{}, @{$arg{array}}[$_..$#{$arg{array}} ] ] }   0 .. $#{$arg{a
+rray}}; # solution provided by Johngg

}