Select Code to Download

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

<myExperience>
$mostLanguages = 'Designed for engineers by engineers.';
$perl          = 'Designed for people who speak by a linguist.';
</myExperience>