Select Code to Download

my %data;
foreach my $file (@file_list)
{
...
{
     print "@{$data{$_}},$_\n";
}

use Socket;
my %data;

...
                "\n";
     }
}