map { $_ =~ s/\r//g } @array;
or 
foreach $item (@array) { $item =~ s/\r//g; }