#!/usr/bin/perl
use strict;
use warnings;
#by davido of perlmonks

#                   Name      Sex Age   IQ      Hair     Eyes
my %hash = (   'Lisa'   => [ 'F',  6, 150, 'Blonde',  'Blue' ],
               'Homer'  => [ 'M', 40, 105,   'Bald',  'Blue' ],
               'Bart'   => [ 'M',  9, 120, 'Blonde', 'Brown' ],
               'Marge'  => [ 'F', 36, 135,   'Blue',  'Blue' ],
               'Maggie' => [ 'F',  1, 130, 'Blonde',  'Blue' ] );

# Assume that @criteria is actually obtained at runtime.
my @criteria = ( 0, 2, 3 );

my @comparisons;
my ( $sample_key, $sample_value ) = each %hash;
foreach ( @criteria ) {
   push @comparisons, "\$hash{\$a}[$_]" .
       ( $sample_value =~ /^\d+$/ ? " <=> " : " cmp " ) .
       " \$hash{\$b}[$_]";
}

my $routine = join " || ", @comparisons;
my @sorted;

eval "\@sorted = sort { $routine } keys \%hash" or die "Ick!\n$@\n";

print $_, "\n" foreach @sorted;