Select Code to Download

Select or download this

@_ = (83, 27, 81, 64, 73, 46, 63, 52, 77, 93, 72, 23, 43, 37, 7, 16, 4
+0, 89, 15, 6, 26, 98, 4, 97, 31);

Select or download this

sub _{$s += ++$n * ord for @_; $n %= @I; $s %= $X};

Select or download this
```
97*1 + 98*2 + 99*3 = 590
```
Select or download this
```
$_/=$_ for @_ = 1..$_I%34;
```

Select or download this

@_ = (1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+, 1, 1, 1, 1);

Select or download this
```
@I[@_] = eeeeeeeeeeeeeeeeeeeeeeeee
```

Select or download this

Iteration 1: @_ = (1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 
+2, 2, 2, 2, 2, 2, 2, 2)

Select or download this
```
@I[@_] = eaaaaaaaaaaaaaaaaaaaaaaaa
```

Select or download this

Iteration 2:
  @_ = (3, 2, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
+ 4, 4, 4, 4)
  @I[@_] = vaeeeeeeeeeeeeeeeeeeeeeee

Select or download this

Iteration 0:
  @_ = (1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+ 1, 1, 1, 1)
...
Iteration 1000:
  @_ = (15, 9, 59, 68, 84, 96, 78, 8, 35, 63, 76, 34, 39, 87, 79, 20, 
+41, 56, 82, 91, 47, 33, 38, 4, 53)
  @I[@_] = hottAorrynsrb o iw ortuen

Select or download this
```
last if $_I == _@I[@_];
```

Select or download this

After calculating of _@I on the line "011":
  $s=19371
...
Just before JAPH-string was printed:
  $s=19371
  $n=0