my @sqrt_results;
for my $result (@results) {
    push @sqrt_results, sqrt($result);
}

##</code><code>##

$x = 'BUZZ';
$x++;
print $x;

##</code><code>##

select((select($fh), $|=1)[0]);

##</code><code>##

(pattern)