sub QueryData {
    $QD_In = $_[0];
    @QD_Pair = split('&',$QD_In);
    %QD_Out = map{split('=',$_,2)} @QD_Pair;
    return (%QD_Out);
};;

%hash = QueryData( 'fred=1&Bill=2&John=3' );;

print $hash{fred};;
1

print $hash{John};;
3