foreach(sort(keys(%FORM))) {
    print $_ . ': ' . $FORM{$_} . "\n" if ($_ =~ /^no\d+$/ && $FORM{$_});
}