print map  { substr($_, 13) }
      sort
      map  { my ($src, $dst) = (split)[0, 2];
             $src = pack('C4n', split(/[.:]/, $src));
             $dst = pack('C4n', split(/[.:]/, $dst));
             $src lt $dst ? "$src${dst}0$_"
                          : "$dst${src}1$_"           }
      <DATA>;