displayArguments( "A", "B", 2, 15, 73, 2.79 ); # output the subroutine arguments using special variable @_ sub displayArguments { # the following loop displays each individual argument for ( $i = 0; $i < @_; ++$i ) { print "Argument $i: $_[ $i ]\n"; } }