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;
and here is what the output looks like:
$VAR1 = {
'c' => '3',
'a' => '1',
'b' => '2'
};
$VAR1 = [];
$VAR1 = [
undef,
undef,
undef
];
Question is: what was the intended outcome?
Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg
