http://qs321.pair.com?node_id=1158361


in reply to "shift" not working as expected

ForeverLearning,

Forget about this answer, looked again, and I'm wrong! Not enough coffee yet!

This: 

for (1 .. $max) {
   sendX;
}

[download]
should be: 
for (0 .. $max) {
   sendX;
}

[download]
whether or not your 'sub sendX' is correct!

Regards...Ed

"Well done is better than well said." - Benjamin Franklin

In Section Seekers of Perl Wisdom