local $, = "\n";
	local $\ = "\n";

	my @a = (1..5);
	foreach (@a){
		$a = shift @a;
		print "Deleted value: $a";
	}

	print "\nDeleted Array Content: ", @a;