#foreach my $d (0..$#date) {
foreach my $d (@date) {
    print UnixDate($d,"%a %b %d %Y"),"\n";
}