sort{extract( $a ) <=> extract( $b )} @lines;

sub extract{
  $a = shift;
  split /:/, $a;
  $_[0];
}