use Sort::Key::Multi qw(i3_keysort); # i3 => 3 integer keys

my @sorted = i3_keysort { /(\d*)_FFF(\d*)_(\d*)/ } @data;