#!/usr/bin/perl -w use strict; =cut XHTML .... =cut ... my @update = $query->param('update'); foreach my $ticket_no (@update) { my $assign_to = $query->param('detail_'.$ticket_no); next unless defined $assign_to; # do something with $ticket_no => $assign_to; print qq|assign ticket number $ticket_no to $assign_to \n|; }