my @x = ("1"); my @y = ("1"); my @z = ("1"); print "Before: @x, @y, @z\n"; (@x, @y, @z) = (); print "After: @x, @y, @z\n"; #### Before: 1, 1, 1 After: , ,