#!/usr/bin/perl

my %seq = ( '1035-2341', '1', '1035-2347', '1', '1035-65', '1', '1035-46', '1');

foreach ( sort {$a cmp $b } keys %seq ) {
    print $_, "\n";
}