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;
}


##</code><code>##

use strict;
use vars qw/$var1 $var2/;