Another way to do that code in the middle, now that I see it:

my %Requestor_fields;
$Requestor_fields{$_} = $q->param($_) for qw(RequestorID Requestor Dep
+artment Extention);
[download]

-- Randal L. Schwartz, Perl hacker