use warnings;
use strict;
use Data::Dump;

my @testarray = ([10,20],[30,40]);

dd "A", @testarray;
foreach (@testarray) {
	dd "B", @testarray;
	while ( <DATA> ) {
		dd "C", @testarray;
	}
	dd "D", @testarray;
}
dd "E", @testarray;

__DATA__
hello
world