You probably want to print only those fields that follow a certain format (no1, no2, etc. for names) and contain data, right? Code for that is as follows:

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

Beyond that, some clarification of what you mean might be necessary. The data has to go into a hash regardless of what method you use.