my $prev= "";
my @sorted=
    grep { ( $_->{num} ne $prev, $prev= $_->{num} )[0] }
    sort { $a->{num} cmp $b->{num} }
    @$data;