my $time = sprintf "%02d.%02d.%04d",@date; print $$time; print @$a; print keys %$a;