first_sub('Testing, testing',' one, two, three'); sub first_sub { my ($var,$var2)=@_; second_sub($var,$var2); } sub second_sub { my ($variable,$variable2)=@_; print $variable.$variable2; }