[...]
for (my $i = 0; $i < 10; $i++) {
        $socket->recv(my $word, 1024);
        print "Your new word is: $word\n";
}
[...]