$ perl -E '
> @arr = qw{ apple ball cat dog elephant fish dog budgie };
> for ( 1 .. $#arr )
> {
>     unshift @arr, splice @arr, $_, 1 if $arr[ $_ ] eq q{dog};
> }
> say for @arr;'
dog
dog
apple
ball
cat
elephant
fish
budgie
$