use strict;

my $this = "1";
my $that = "2";

sub try {
        my ($one,$two) = @_;
        print "$one $two\n\n";
}

try($this,$that);