my $output = $rh->get_response;
      $output = join( " ", split " ", $output );
      my @outputlist = split /\ /, $output;
      foreach (0..$#outputlist)
      {
          . . .