use strict;
use warnings;

use List::Util qw{ shuffle };

my $inFile = shift;
open my $inFH, q{<}, $inFile
   or die qq{open: < $inFile: $!\n};

my $outFile = $inFile . q{_shuffled.fasta};
open my $outFH, q{>}, $outFile
   or die qq{open: > $outFile: $!\n};

my $window = 10;

while ( not eof $inFH )
{
    my( $id, $seq ) =
       map { chomp; $_ }
       map { scalar <$inFH> }
       1 .. 2;
    
    my $shuffled =
       join q{},
       map { join q{}, shuffle split m{} }
       unpack qq{(a$window)*}, $seq;

    print $outFH qq{$id\n$shuffled\n};
}

close $inFH or die $!;
close $outFH or die $!;