I'd like to help you get it done, but it's unclear what you're trying to do. So, here's some general advice:

What's $COOKIES? Variable names are case sensitive, so it's not the same as $cookies. Use strict and warnings to be safe.

To increment a variable by 1, use just $var++, no assignment there.

exit is not needed at the very end of the script. What else could perl do at the end of the source code?

If you compare how the string in the condition is built with the string that's printed, you'll notice small differences. It's better to only have one place to create the string - a subroutine. Avoid copy and paste, it's hard to maintain. Maybe like this: 

#!/usr/bin/perl
use warnings;
use strict;

sub cookies {
    my $number = shift;
    return ('COOKIES ' x ($number - 1) . 'COOKIES' . 'S' x $number)
}

my $number  = 1;
my $cookies = "";

while ($cookies ne cookies($number)) {
    $number++;
    print 'Cookie monster: I want ', cookies($number), "!\n";
    chomp($cookies = <STDIN>);
}

print "Mmmm. $number COOKIES. :-)\n";

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In reply to Re: Loop and Add more cookies by choroba
in thread Loop and Add more cookies by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.