@Data = map  { $_->[0] }
        sort { $_->[1] cmp $_->[1] }
        map  { $_, [ (split /\|/)[1] ] } @Data;