#!/usr/bin/perl -w
#filename: myMutator.pl

use strict;

our (@organism,@numberMutation,$currentGene,$currentMutation,$someGene,$thisMutate,$i);
@organism = (1,1,1,1,1,1,1,1,1);

open(FILE,"myFiles/pi.txt");

while (<FILE>)
{
        chomp;
        @numberMutation = split(/\C/,$_);
}

foreach $currentMutation(@numberMutation)
{
        $i = 0;

        foreach $currentGene(@organism)
        {
                if ($currentGene < $currentMutation)
                {
                        $organism[$i] = $currentMutation;
                        $i++;
                }
        }
}

foreach $someGene(@organism)
{
        print "${someGene}\n";
}

foreach $thisMutate(@numberMutation)
{
        print "${thisMutate}\n";
}