johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -MData::Dumper -E '
my $data = [
   [ 123 ],
   [ 789 ],
   [ 456 ],
   [ 123 ],
   [ 543 ],
   ];

my @uniq = values { map { $_->[ 0 ] => $_ } @{ $data } };

print Data::Dumper->Dumpxs( [ \ @uniq ], [ qw{ *uniq } ] );'
@uniq = (
          [
            789
          ],
          [
            543
          ],
          [
            456
          ],
          [
            123
          ]
        );