my (%data) = ( 'x' => 'y' );  # etc.

$url = Crush ("http://www.xyzco.com/foo.cgi?",%data);

# Or, on the receiving end...

my ($q) = new CGI;

my (%data) = Uncrush ($q);