tie my @aod, 'Tie::File', 'bias/array.txt', recsep => "\n";

my $letter = 'c';
my $result = 0;
open my $DATABASE, '>', $datafileout or croak 'dataout not made.';
foreach my $r (0 .. $gener){
    $result = index($aod[$r], $letter);
    while ($result != -1){
       print {$DATABASE} qq{$result,};
       my $offset = $result + 1;
       $result = index($aod[$r], $letter, $offset);
     }
     print {$DATABASE} qq{\n} or croak 'unable to print';
}   

close $DATABASE or croak 'data1 not closed.';