... foreach my $row (@$values) { $row->{'name'}=~s/^\s+|\s+$//g; $row->{'last'}=~s/^\s+|\s+$//g; ... } ... #### @$values=~s/^\s+|\s+$//g;