my %holder;
...
$holder{$key} = $value;
...
my @holder_sorted = sort { $holder{$a} <=> $holder{$b} } keys @holder;
print("@holder{@holder_sorted}\n");