use CGI qw/:standard/;
my %data = ( salesman => [param('salesman')] );