@array = sort {
    ($a eq 'dog' ? 0 : 1)
        <=>
    ($b eq 'dog' ? 0 : 1)
} @array;