my @ary = $query->param;
my $pageid;
for (@ary) {
    if (lc $_ eq 'pageid') {
        $pageid = $query->param($_);
    }
}