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

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

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

##</code><code>##

Deleted value: 1
Deleted value: 2
Deleted value: 3
Deleted Array Content:
4
5