my %orcPriceHsh:shared=1;
my %signatureHsh:shared = ("DE00084695946" => "0000000000.000000");
$orcPriceHsh{"0000000000"} = \%signatureHsh;

##</code><code>##

 handleMessages($configHsh{General}{ListenPort},%orcPriceHsh);

##</code><code>##

$transitCalcThread=threads->new(\&calcTransitTimes, $XmlRpcClient,$itrsQueue,%orcPriceHsh);
$transitCalcThread->detach;

##</code><code>##

sub handleMessages
{
    my $port=shift();
    my %oph=@_;

##</code><code>##

my %sHsh:shared = ($signature => $timeStamp);
$oph{$nixSeconds} = \%sHsh; 	

##</code><code>##

msg("in handleMessages() oph :");
dump(%oph);

##</code><code>##

sub calcTransitTimes
{
    my $XmlRpcClient=shift();
    my $itrsQueue=shift();
    #my %orcPriceHsh=shift();
    my %args=@_;

...

msg("in calcTransitTimes() args :");
dump(%args);