Dear Mike, Surprised you've been stumped for 3 hours, but sometimes the most obvious bugs are the hardest to find. In your code you have:
... &printSequence; foreach my $id (@list) { ... That function call is causing your problem. Jonathan Paton -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>