i have solved the issue in my own way i am newbie so if there is any inefficiency in my code please point out...as "there is more than one way to do it"

my @array=('one','two','three','four','five','six');

 &shuffle(\@array);







 sub shuffle{

 my $array=shift;
 my $max=@$array;
 #print $max;
 
 foreach(@$array)
 {
   my $random=int rand($max+1);
   
   unless($random eq $max)
   { 
     @$array[$random,$max]=@$array[$max,$random];
     $max--;
     }
    
    }
 
 }
 
 print "@array\n";
[download]

** i also have a querry if i omit the $max-- what wrong will happen