map { my $c = uc () . ("\0" x ($max_l - length)) . $_;
      print "$_ => $c\n"; $c } @array;