my $_ = 3;
print for $_**2, "\n", sqrt;