Select Code to Download

my($topic,$words,$pass,$name,$user)=parse_form($q);

...
        my $pass=$q->param('pass');
    return [$topic,$words,$pass,$name,$user]; 
}

sub parse_form {
        my $q=shift; #get the value from @_
...
        #but that might not matter.
    return [$q->param('topic'), $words, $q->param('pass'), $name, $q->
+remote_addr()]; 
}