use strict;
use warnings;

my @items = (["dog", 20], ["desk", 10], ["cow", 150]);

print "By name:\n";
print "$_->[0]: $_->[1]\n" for sort {$a->[0] cmp $b->[0]} @items;

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