Okay, I must take a crack at it...

open CUP $reesecup;
while( <CUP> )
{
  push @stomach, $_;
}