@sorted = map  {$_ -> [0]}
              sort {$a -> [1] cmp $b -> [1] ||
                    $a -> [2] cmp $b -> [2] ||
                    $a -> [3] cmp $b -> [3]}
              map {[$_ => split /,/]} @$outputRef;