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;



##</code><code>##

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