print "SUB4: 2nd way\n"; for my $x (@data){ print join "", @$x, "\n"; }