$ cat foreach_outer
#!/usr/bin/perl

use strict;
use warnings;

foreach my $foo (1 .. 10000000) {
  foreach my $bar (1 .. 3) {
    my $pointless = "$foo.$bar";
  }
}