How to print script arguments in Perl ?

This can be done using following script.
foreach (@ARGV) {
print "$_\n";
}