push @TestVals, {
		A => $var1,
		B => $var2,
		C => $var3,
		D => $var4
		}
		
	foreach my $row (@TestVals){
	
		print Dumper $row;
	
	}

##</code><code>##

	$VAR1 = {
          'A' => 'TEST DATA 1',
          'B' => 'TEST DATA 2',
          'C' => 'TEST DATA 3',
          'D' => 'TEST DATA 4',
        };