chomp(my $line = <FILE>);
my @numberMutation = split(//, $line);