Either of these should work.

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

hope that helps.. It'd probably be best to filter them out on a per line basis when you're creating the datafile(if you have control over it), as opposed to when you're reading it in.