Select Code to Download

my ( %hash1, %hash2 );
$hash1{"value$_"} = $_ for ( 1 .. 11 );
...
value10 10 value1 1 value11 11 value2 2 value3 3 value4 4 value5 5 val
+ue6 6 value7 7 value8 8 value9 9
========== [C:\users\jake\code\komodo\test3.pl] run finished. ========
+==

sub flatten {
  my %hash = @_; 
  return join '', map "$hash{$_}$_", sort keys %hash;
}