sub data_verify { my @data = @_; for (@data) { s/^\s*//; s/\s*$//; } return @data; }