my @commands = qw(ping traceroute whois other stuff);
print $q->start_form(-method=>'POST',-action=>'formDB.cgi');
print $q->hidden(-name=>'val',-value=>"$ciccio[2]");
print $q->submit(uc($_)) foreach (@commands);
print $q->end_form;