sub byage {
    $age{$a} <=> $age{$b};
}
@sorted = sort byage @class;