%fields = ('1.Name' => $cgi->param('name') || 'Anonymous',
          '2.Email' => $cgi->param('email') || 'No email Supplied',
          '3.Comments' => $cgi->param('comments') || 'No Comments',
          '4.Satisfied' => $cgi->param('radio1') || 'Not Specified',
         );

##</code><code>##

foreach (sort keys %names) { 
	print "$_ : $names{$_} \n";
}