$" = '';
print "SUB4: 3rd way\n";
for my $x (@data){
	print "@$x\n";	
}