Select Code to Download

my $j_date = $form_data{'judeo_date'};
my $long_count = get_long_count $j_date if defined $form_data{'judeo_d
+ate'};

sub get_long_count {
    my ($dd, $mon, $yyyy, $bc) = split /-/, $_, 4;
...
    my $long_count;
    $long_count = "$baktun.$katun.$tun.$uinal.$kin";
}