Rare is the Perl source that can't fit in memory.    my @source = <IN>; will do the trick, and give you something to iterate over in your subroutines.