#!/usr/bin/perl
use 5.014;
# 987079

my $NEXTDAY = "fooday";
my $nextday = "BARDAY";

if ($NEXTDAY eq $nextday) {
    say "Behold, a miracle!";
} else {
    say "\$NEXTDAY is $NEXTDAY and \$nextday is $nextday";
}