Select Code to Download

$array1[$k] =~ s/^\s+//;
$array1[$k] =~ s/\s+$//;
$array2[$l] =~ s/^\s+//;
$array2[$l] =~ s/\s+$//;

# modify value in place
sub trim {
...

$array1[$k] = trim($array1[$k]);
$array2[$l] = trim($array2[$l]);