Select Code to Download

foreach my $root (map { sqrt($_) }@data)
{
   #do something with this square root...
}

foreach my $orig ( @data ) {
    my $root = sqrt $orig;
    ... do something with square root here ...
}