@origarray = qw/ third|:|bb second|:|b fourth|:|c first|:|a /;

my @sorted = map { /\0(.*)/s }
             sort
             map { (split /\|:\|/)[-1] . "\0$_" }
             @origarray;

print "@sorted\n";