&test($string1,$string2);

sub test {
my $string1 = $_[0];
my $string2 = $_[1];
my $string3 = $_[3];

}