# in My::Package
sub operater_on_all_data
{
    my $value;
    foreach ( @internal_data_storage ) {
       $value += &user_sub_variable();
    }
}

# in user_sub
sub user_sub {
    return $_ * 2;
}