and moving things around:

use Sort::Key::Multi 'i3_keysort';

{
  my %sign = (on => 1, off => -1);

  sub flagsValue {
    my ($type, $item) = @_;
    my $flags = $tagTypes{$item}[2];

    my $i = 1;
    for (qw(R T I F B L)) {
      last if index $flags, $_ >= 0
      $i++
    }
    $sign{$type} * $i;
  }
}

print join "\n",
    map "$_->[0] $_->[1] $_->[2]",
    i3_keysort {
        $_->[2] =~ /^(\d+)\.(\d+)$/,
        flagsValue($_->[0], $_->[1])
    } @tagIndexes;
[download]