sort {
    my ($a1,$a2,$a3) = $a =~ /(\d*)_FFF(\d*)_(\d*)/;
    my ($b1,$b2,$b3) = $b =~ /(\d*)_FFF(\d*)_(\d*)/;
    $a1 <=> $b1
        ||
    $a2 <=> $b2
        ||
    $a3 <=> $b3
}