my %by;
  @by{ map $_->{num}, @$data } = 0 .. $#$data;

  @sorted_unique = @{$data}[ @by{ sort keys %by } ];