package Some::Package::Name; use strict; use warnings; my $class_data; sub some_class_method { my $class = shift; some_operation_to_define($class_data); } sub some_other_class_method { my $class = shift; return some_fuction_based_on($class_data); } #### my $class_data; #### our $class_data;