Perl program to show when Ash Wednesday falls on St. Valentine's Day

ash_valentine.pl

#!/usr/bin/env perl
use strict;
use experimental qw{say};
use DateTime;
use DateTime::Event::Easter;

my $val_day           = 14;
my $val_mon           = 2;
my $api = DateTime::Event::Easter->new(day=>'Ash Wednesday');

for my $y ( 1800 .. 2050 ) {
    my $date    = DateTime->new( year => $y, month => 1, day => 1 );
    my $ash_wed  = $api->following($date);
    next unless $val_mon == $ash_wed->month;
    next unless $val_day == $ash_wed->day;
    say join "\t", $ash_wed->year;
}