Select Code to Download

   {
       local $" = "\n";
...
           or die $!;
       print $fh "@list\n";
   }

   my $prefix = "something";
   {
...
           or die $!;
       print $fh "$prefix@list\n";
   }