use strict;
use warnings;
use Tie::File;

tie my @lines, 'Tie::File,  'ListOfIpAdress.txt' or die "$!";
# define sub F such that it returns 0 if Time > 34, 1 otherwise
@lines = grep { F($_) } @lines;
untie @lines;