print "SUB4: 2nd way\n"; for my $x (@data){ print join "", @$x, "\n"; } #### $mostLanguages = 'Designed for engineers by engineers.'; $perl = 'Designed for people who speak by a linguist.';