List git branches by date and author

if [[ "$1" == "-r" ]]
then
    REMOTE="-r"
else
    REMOTE=""
fi

for k in `git branch $REMOTE | perl -pe s/^..// | sed 's/.\+ -> //'`; do echo -e `git show --pretty=format:"%Cgreen%ci %Cblue%cr%Creset (%cn)" $k|head -n 1`\\t$k; done | sort