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;