#!/usr/bin/perl

use strict;
use Data::Dumper;

my %unsorted = ( key3 => 'bread',
				 key2 => 'apples',
				 key1 => 'steak',
				 key4 => 'butter',
				 key5 => 'oranges',
				 key6 => 'cake',
				);
my @keys_by_value = sort { $unsorted{$a} cmp $unsorted{$b} } keys %unsorted;

print "Keys by value: @keys_by_value\n";
print "Sorted values: @unsorted{ @keys_by_value }\n";

my @sorted_keys_values = map { $_, $unsorted{$_} }  sort { $unsorted{$a} cmp $unsorted{$b} } keys %unsorted;

print "Keys/values by value: @sorted_keys_values\n";

#my $foo = { @sorted_keys_values };
my $as_hash = { map { $_, $unsorted{$_} }  sort { $unsorted{$a} cmp $unsorted{$b} } keys %unsorted };

print "Data Dumper:\n";
print Data::Dumper->Dump( [$as_hash],['as_hash'] );