sub subroutine { $variable = shift $variable = changingthedata($variable) return $variable }