#!/usr/bin/perl
@data=qw(bb bbZZ aaZZ aaSD aaPM aaAA aa);
print join " ", sort { substr($a,0,2) cmp substr($b,0,2) } @data;
#Result:
aaZZ aaSD aaPM aaAA aa bb bbZZ