for my $s (@strings) {
   $s = trim($s);
}