#!perl -w use strict; print join("\n",@ARGV),"\n"; print $#ARGV,"\n"; print scalar @ARGV,"\n"; print "Ending\n"; my @items = ("one", "two", "three"); my @news = ("bad", "sad", "mad"); print join("\t",@items),"\n"; print join("\t",@news),"\n"; @news = @items; print join("\t",@news),"\n"; exit(0);