Doesn't look like it does anything. Here is what I started with:

use strict;
use Data::Dumper;
my @allrefs;


my %uni_refs = (
        qw [ a 1 b 2 c 3 ]
);
print Dumper \%uni_refs;

my @refs = @allrefs[ sort {$a <=> $b} values %uni_refs ];

print Dumper \@allrefs;
print Dumper \@refs;
[download]

and here is what the output looks like:

$VAR1 = {
          'c' => '3',
          'a' => '1',
          'b' => '2'
        };
$VAR1 = [];
$VAR1 = [
          undef,
          undef,
          undef
        ];
[download]

Question is: what was the intended outcome?