$ref = [map {$$_[0]}
        sort {$$a[1] cmp $$b[1]}
        map {my $srn = $_->seq_region_name;
             [$_, sprintf "%03d;%s", ($srn =~ /[0-9]/ ? ($srn, "") : (0, $srn))]}
        @$ref];