@args = (2,3,first,second); print @args; #### foreach ( &func1, &func2 ) { print "Looping : $_"; } sub func1 { print "func1 called\n"; return "func1 return val\n"; } sub func2 { print "func2 called\n"; return "func2 return val\n"; }