my @array = ("apple","ball","cat","dog","elephant");
unshift @array, 'dog';