# assumes the output is in $s;
print sort map{ substr $s, $_, 2 } 0..99;