Statement Perl

print "Current number: $_.\n" foreach (1 .. 10);