How come this for loop makes an infinite loop?

>>>>> "lord" == lord vodka
ccccccxxxxxxvi <lord_vodka_ccccccxxxxxxviyahoo.com> writes:

lord> print "Input ";
lord> $input = <STDIN>;
lord> chomp($input);
lord> print newline; print newline;

I don't know what these are supposed to do. 
"newline" means nothing
to Perl.

lord> TONE_ROW = (1,2,3,4,5,6,7,8,9,10,11,12);
lord> print TONE_ROW;
lord> print newline; print newline;
lord> print newline; print newline;

lord> for($loop = 0; $loop != $input, $loop = $loop + 1;
)

Your test is testing if $loop = $loop + 1 returns false. 
Given
that $loop starts at 0, this is an infinite loop.

lord> 		{
lord> 		print "TONE_ROWnn";
lord> 		push(TONE_ROW, shift(TONE_ROW));
lord> 		}

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. -
+1 503 777 0095
<merlynstonehenge.com> <URL:http://www.ston
ehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy,
etc. etc.
See PerlTraining.Stonehenge.com for onsite and
open-enrollment Perl training!


Unsubscribing info is here: h
ttp://help.yahoo.com/help/us/groups/groups-32.html 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://g
roups.yahoo.com/group/perl-beginner/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http
://groups.yahoo.com/group/perl-beginner/join
    (Yahoo! ID required)

<*> To change settings via email:
    mailto:perl-beginner-digest@yahoogroups.com 
    mailto:perl-beginner-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
    perl-beginner-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.c
om/info/terms/