Select Code to Download

use strict;
use warnings;
...
        print join '', values %hash, "\n";
    }
}

use strict;
use warnings;
...
    $result = ($prime * $input + $seed) % $max;
    print $arr[$result], " ";
}