package Library.pm $output = Library::subroutine($variable) #### sub subroutine { $variable = shift $variable = changingthedata($variable) return $variable }