Select Code to Download

use strict;
use warnings;
...
           };
   };
$iterator->( $_ ) for @arr1;

tom plays
harry eats
...
nick plays
sally eats
henry sleeps