A Reply to myself. I just realized that the routine breakupForms isn't returning a thing!
Heres the code

package formBreaker;

use strict;
sub breakupForms {
        my (%pform,%gform);
        my $submittype = @_;
        #Do the Form {Post} first

        read(STDIN, $buffer,$ENV{'CONTENT_LENGTH'});
        my @pairs = split(/&/, $buffer);

        foreach $pair (@pairs) {
                my ($name,$value);
                ($name, $value) = split(/=/, $pair);
                $name =~ tr/+/ /;
                $name =~ s/%(a-fA-F0-9a-fA-F0-9)/pack("C", hex($1))/eg;

                $value =~ tr/+/ /;
                $value =~ s/%(a-fA-F0-9a-fA-F0-9)/pack("C", hex($1))/eg;

                if($pform{$name} ne "") {
                        $pform{$name} = join("\|",$pform{$name},$value);
                }
                else {
                        $pform{$name}=$value;
                }
        }

        #breakup form query strings
        my @pairs = split(/\&/,$ENV{'QUERY_STRING'});
                foreach(@pairs) {
                        my($name,$value);
                        ($name,$value) = split(/\=/,$_);
                        $gform{$name}=$value;
                }

        if($submittype eq "post") {
                return %pform;
        }
        elsif($submittype eq "get") {
                return %gform;
        }
} #end of sub for breakupForms
1;