Select Code to Download

my @sortedkeys = sort { $people{$a}->[0] cmp $people{$b}->[0] or
                        $people{$a}->[1] cmp $people{$b}->[1] or
                        $people{$a}->[2] cmp $people{$b}->[2]    }
    keys %people;