#!/usr/bin/perl --
use strict;
use warnings;
use diagnostics;

my ( %resource, $portoffset );
$portoffset = 6;
warn $portoffset;
initialize( \%resource, $portoffset + 1 );
consolidate( \%resource, $portoffset + 2 );
dispatch( \%resource, $portoffset + 3 );

warn $portoffset;

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

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

sub dispatch {
    my ( $HRD_resource, $portoffset ) = @_;
    warn $portoffset;
}
__END__
6 at temp.pl line 8.
7 at temp.pl line 17.
8 at temp.pl line 22.
9 at temp.pl line 27.
6 at temp.pl line 13.