@a=qw(foo:baz foo:bar);
print sort { (split(/:/,$a))[1] cmp (split(/:/,$b))[1] } @a;