1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl use strict; use warnings; my $exp = 1; for my $i (1 .. 20) { $exp *= 2; }