sub mytest($){
    print $_[0];
}

mytest(3);