for(my $i=0; $i <= 10; $i++)
{
   print $new_sock "$i\n";
}