Select Code to Download

sub _mapone
 {
...
 my $counter= 0;
 return map { _mapone ($_, $counter++) } (unpack ("C*", $x));
 }