sub hello { my ($hi, $place) = @_; print "$hi $place\n"; }