Well, the most common problem when sorting text that contains numbers is that values with different numbers of digits don't sort numerically. Here is one way to fix that. Here is another:

  my @data= qw( 953-FMT-FMT 954-FMT-FMT BLOGO93-FMT-FMT 955-FMT-FMT
    BOXSTART2-FMT-FMT BOXEND2-FMT-FMT 956-FMT-FMT 413-FMT-FMT
    DATE1-FMT-FMT 414-FMT-FMT 415-FMT-FMT 416-FMT-FMT BLOGO107-FMT-FMT
    417-FMT-FMT 419-FMT-FMT 418-FMT-FMT BLOGO63-FMT-FMT 393-FMT-FMT
    394-FMT-FMT BLOGO75-FMT-FMT 420-FMT-FMT 421-FMT-FMT 395-FMT-FMT );
  my %data;
  foreach my $data (  @data  ) {
      ( my $sort= $data ) =~ s/(0*)(\d+)/
          pack("C",length($2)) . $1 . $2 /ge;
      $data{$sort}= $data;
  }
  print join( "\n", @data{ sort keys %data } ), "\n";
[download]

which produces

393-FMT-FMT
394-FMT-FMT
395-FMT-FMT
413-FMT-FMT
414-FMT-FMT
415-FMT-FMT
416-FMT-FMT
417-FMT-FMT
418-FMT-FMT
419-FMT-FMT
420-FMT-FMT
421-FMT-FMT
953-FMT-FMT
954-FMT-FMT
955-FMT-FMT
956-FMT-FMT
BLOGO63-FMT-FMT
BLOGO75-FMT-FMT
BLOGO93-FMT-FMT
BLOGO107-FMT-FMT
BOXEND2-FMT-FMT
BOXSTART2-FMT-FMT
DATE1-FMT-FMT
[download]

note how "BLOGO107" comes after "BLOGO93".

If you also want "BLOGO" to sort last, then either separate those beforehand as already mentioned or try this:

  my @data= qw( 953-FMT-FMT 954-FMT-FMT BLOGO93-FMT-FMT 955-FMT-FMT
    BOXSTART2-FMT-FMT BOXEND2-FMT-FMT 956-FMT-FMT 413-FMT-FMT
    DATE1-FMT-FMT 414-FMT-FMT 415-FMT-FMT 416-FMT-FMT BLOGO107-FMT-FMT
    417-FMT-FMT 419-FMT-FMT 418-FMT-FMT BLOGO63-FMT-FMT 393-FMT-FMT
    394-FMT-FMT BLOGO75-FMT-FMT 420-FMT-FMT 421-FMT-FMT 395-FMT-FMT );
  my %data;
  foreach my $data (  @data  ) {
      ( my $sort= $data ) =~ s/(0*)(\d+)/
          pack("C",length($2)) . $1 . $2 /ge;
      $sort =~ s/^BLOGO/~BLOGO/;
      $data{$sort}= $data;
  }
  print join( "\n", @data{ sort keys %data } ), "\n";
[download]

        - tye (but my friends call me "Tye")