my (%resource,$portoffset);

initialize(\%resource,$portoffset);
consolidate(\%resource, $portoffset);
dispatch(\%resourcel,$portoffset);


sub initialize
{
    my ($HRI_resource,$I_portoffset) = @_;
}

sub consolidate
{
  my  ($HRC_resource, $C_portoffset)= @_;
}

sub dispatch
{
my  ($HRD_resource, $D_portoffset)= @_;
}