#!/usr/bin/perl -l

use strict;
use warnings;

my @data=qw/1-1 6 2-5 1-10 7 1-3 2-1/;

print for map +(split)[1],
  sort map
  { (my $s=$_) =~ s/(\d+)/sprintf '%06d', $1/ge;
      "$s $_";
  } @data;

__END__