in reply to Putting an elemnt in first position in array.

So you want to sort the list such as dog appears first. Well, you could use sort! 
@array = sort {
    ($a eq 'dog' ? 0 : 1)
        <=>
    ($b eq 'dog' ? 0 : 1)
} @array;

[download]

In Section Seekers of Perl Wisdom