#/usr/bin/perl -w
use strict;
foreach (sort split /\s+/,<DATA>) {
    /^\d/ ? print "FH1: $_\n" : print "FH2: $_\n";
}

__DATA__
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