sub nameBlahAref {
    naeval($a) <=> naeval($b);
}
sub naeval {
    $_[0] eq 'name' and return 1;
    $_[0] eq 'aref' and return 3;
    return 2;
}