for my $i (1 .. $n) {
  $results[ $i ] = somefunc1($i) + somefunc2($i);
}

{
  my $data = 0;
  sub somefunc1 {
    my $i = shift;
    $i += $data++;
    sleep(1);
    $i;
  }
  sub somefunc2 {
    my $i = shift;
    sleep(1);
    $i *= $data++;
    $i;
  }
}