>>747
print
　　map "$_->[2]\n",
　　sort { $a->[0] <=> $b->[0] || $a->[1] <=> $b->[1] }
　　map [ /(\d+)/g, $_ ],
　　qw(100の1 1000の2 100の3 500の1 1000の1 500の2 100の2);

>>748
my $count;
foreach (@data) { $count++; print $count }

print 1..@data;