use warnings;
use strict;

my ($start, $lastp, $lastv);

while ( my $line = <DATA> ){
    my ( $pointer, $value ) = split /\s+/, $line;
    flush() if ( $value <= 4 or $value > 4 && $value < $lastv );
    $start = $pointer unless ( defined $start || $value <= 4 );
    ( $lastp, $lastv ) = ( $pointer, $value );
}
flush();

sub flush {
    if ( defined $start ){
        printf "%d %d (which is %d + 50) %d\n", $start, $lastp + 50, $lastp,
          $lastv;
    }
    undef $_ for ( $start, $lastp, $lastv );
}

__DATA__
109026 3
109027 28
109028 30
116958 15
116960 35
116961 39
116962 70
116963 72
147184 2
147588 1
153087 32