...
    use integer;
    my $today = time / 86400 * 86400; # chop hours, minutes, seconds
    while (<DATA>) { # read bank holiday file
        ...
        next if $bh_start < $today; # history
        ...
    }
    ...