perl -lane '$h{"$F[3]-$F[4]-$F[6]"}++ 
     if /^From /; END {
        print $_, "\t", $h{$_} for keys %h
     }' SPAM  > spamdates