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

##</code><code>##

SUB4: 3rd way
123
123
123