use strict;
use warnings;

my @array = ("apple","ball","cat","dog","elephant"); 
@array = drag_to_front("dog", @array);
print join(",", @array),"\n";

sub drag_to_front{
   my ($wanted, @array)=@_;
   my @new_array;
   for my $element (@array){
      if ($element eq $wanted){
         unshift @new_array, $element;
      }
      else{
         push @new_array, $element;
      }
   }
   return @new_array;
}