As a note, you don't need to undef $c at the location you're doing it -- $c will fall out of scope naturally at the end of the loop. That's the more Perl-ish way (I think) to do things.