st => sub  {             
        my 
        @st =  map { pop @$_; $_ }
               sort { $a->[-1] cmp $b->[-1] } 
               map { my $k = lc substr $_->[ 4 ], 0, 3; push @$_,$k;  $_ }
               @a_of_a;
    }