sub foo {
    my $hashref = shift;
    # add data
    bar($hashref);
}

sub bar {
    my $hashref = shift;
    # manipulate data as above
}