Select Code to Download

my @satfile = <STDIN>;
my @satseq = @satfile;

my $sorsz = 3;
while (my $line = <STDIN>) {
...
        $satseq[$sorsz] .= $line;
    }
}