$startOfData= tell DATA;
    while( <DATA> ) {
        ProcessData( $_ );
    }
    seek( DATA, $startOfData, 0 ) or die "Can't seek: $!";
    while( <DATA> ) {
        ReprocessedCheese( $_ );
    }