RosettaCodeData/Task/Topic-variable/Perl/topic-variable-1.pl

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