sub data_verify {
 my @data = shift;
 my $loop_count = 0;
 while (@data) {
  $data[$loop_count] =~ s/^\s*//;
  $data[$loop_count] =~ s/\s*$//;
  $loop_count++;
 }
 return @data;
}