use strict;
test1();

sub test1 {
    test2(1,2);
}

sub test2 {
    my ($a, $aa) = @_;
    print "a = $a\n";
    print "aa = $aa\n";
}