If on a *nix box, the following may work:

    my $event = "20000504"; #or the value of your BDA hash
    open(DT,"date -d $event '+%A, %B %e, %Y' |");
        my $date = <DT>;
        chop($date);
    close DT;
[download]