my $data =
[
    {
        num     => 'OF1234',
        title   => 'title OF1234',
    },
    {
        num     => 'AF1234',
        title   => 'title AF1234',
    },
    {
        num     => 'AF1234',
        title   => 'title AF1234',
    },
];

my @sorted =
    sort { $a->{num} cmp $b->{ num } }
    values %{ +{ map { ($_->{num},$_) } @$data }};

print join ', ', map { $_->{num} } @sorted;
[download]