for my $h (     
        # values %{$imap->parse_headers( scalar($imap->search("ALL")) , "Subject", "Date")}
         values %{$imap->parse_headers( scalar($imap->search("SUBJECT","A time out or a transaction deadlockDDD")) , "Subject", "Date")}
        ) {
                 print map { "$_:\t$h->{$_}[0]\n"} keys %$h; 
        }