Select Code to Download

my $file = "file"; # why not...
my $temp = "temp"; # makes sense if you later want to use
                   # some other basename for your sequence of files
...
  open $file, '>', "$temp$_"; # you just turned $file from a string in
+to a filehandle...
  ...
}

foreach (@lines) {
  $_ = uc; # ALL CAPS WOOOOOO
  s/$/!!!/; # EVERY LINE IS AN EXCLAMATION!!!
  print;
}

my @timesTable;
foreach my $row (0..12) { #
...
    @timesTable[$row][$col] = $row * $col;
  }
}

for ($leetString) { # "loops" only once
  s/very/uber/g;
  tr/astloe/457103/;
  s!w!\\/\\/!g;
}