Select Code to Download

use strict;
use warnings;
...

print "\nBy weight:\n";
print "$_->[0]: $_->[1]\n" for sort {$a->[1] <=> $b->[1]} @items;

use strict;
use warnings;
...

print "\nBy weight:\n";
print "$_: $items{$_}\n" for sort {$items{$a} <=> $items{$b}} keys %it
+ems;

By name:
cow: 150
...
desk: 10
dog: 20
cow: 150