Thankfully, LD2 already addressed why pseudo hashes suck. One solution I've used for cases like this is to support multiple types of requests:

my( $day, $month, $year )= FileTimeToSystemTime(
    $int64, qw(day month year) );
my @date= FileTimeToSystemTime( $int64 );
FileTimeToSystemTime( $int64, \(my %date) );
[download]

        - tye (but my friends call me "Tye")