if (param('age') =~ /^(under18|18to30|30to45|45to65|over65)$/) {
    ++$data{$1};
}
else {
    ++$data{'age_none'};
}