sub parse_data() {
    my $params = $q->Vars;
    foreach my $key ( %$params ) {
        print $params->{$key};
    }
}