open(IN, "bigfile.txt");
while(<IN>){
  &big_sub1($_);
}
open(IN, "bigfile.txt");
while(<IN>){
  &big_sub2($_);
}