Do you understand that your sub Get_formvalues() is a closure?

while ( my $q = new CGI::Fast ) {
    my %formvariabel = Get_formvalues($q);
}

sub Get_formvalues {
    my $query          = shift;
    my $request_method = $query->request_method;
    if ( $request_method eq 'GET' || $request_method eq 'POST' ) {
        return map { $_ => join "\n", $query->param($_) } $query->para
+m;
    }
}
[download]