Select Code to Download

my %h;
for my $x ( 1..9 ) {
...
for my $k (  1990 .. 2010  ) {
    print "$k=$h{$k}\n"   if  exists $h{$k};
}

1998=189+891+918=198+819+981=279+792+927=...
2004=149+914+941=617+671+716=527+725+752
2007=198+891+918=387+783+837=459+594+954=...

2003=089+098+908+908=368+386+386+863=485+485+485+548

for my $i ( 0..$#p ) {
  for my $j ( $i+1..$#p ) {
...
     }
  }
}

sub nestedLoops {
    my( $loops, $params )= @_;
...
        $code->( @list );
    }
}

    my $digs= 3;
    my $fact= 1;
...
            if  1990 < $k and $k < 2010;
            ##if  $h{$k} =~ /\d/  &&  index($h{$k},"()") < 0;
    }