my %numbers = 1..8;
my @sorted = map { $numbers{$_} => $_ } sort keys %numbers;
print join ", ", @sorted;