@array = 5..9; 			# this section works as expected
print @array; 			# 56789
print "\n";
$fred = pop(@array);
print $fred; 			# 9
print "\n"; 
print @array; 			# 5678
print "\n";	

@new_array = 1..5;			# this section does not
print @new_array . "\n";	# 5
$barney = pop(@new_array);	
print $barney . "\n";		# 5
print @new_array . "\n";	# 4
print "\n";