Select Code to Download

my %results;
{ local @ARGV =  ( 'q1.fa', 'q2.fa' );
  /^>/ or push @{ $results{ $ARGV } }, $_ while <>;
}

for ( keys %results ) {
  print "$_:\n";
  print @{ $results{ $_ } };
  print "\n";
}