chomp @FILE;
my $every_command = join '', map { "$_\r\n" } @FILE;
print $sock $every_command;

##</code><code>##

chomp @FILE;
foreach my $command ( @FILE ) {
   print $sock "$command\r\n";
}