I just stepped through the code with Komodo, and I'm absolutely sure that both $key and $value have values in them. Does it matter that $key contains a string with a space in the middle (like 'Foo Bar')? Any other suggestions?

Thanks
tl

hi! I ran the following code and it executed without error;
Please check the input.
did not check the result but did not get error when executed;

use strict;


my $i = 0; <br>
my $j = 0; <br>
my @discovered;<br>
my  @arrayAoH;<br>
<br>
@discovered =(" : hfjfda","rk qjhre:kjfsngfnfd","sdfjlksjf : sfljkhegl
+erg"); <br>
<br>
my $key;<br>
my $value;<br>

until ($i eq $#discovered){<br>
if ($discovered[$i] =~ m/Item Number:/){<br>
until ($discovered[$i] eq ""){<br>
($key, $value) = split /:\s*/, $discovered[$i];<br>
$arrayAoH[$j]{$key} = $value;<br>
$i++;<br>
}<br>

if (($arrayAoH[$j]{"Model Number"} !~ m/^Foo/)){<br>
splice (@arrayAoH, $j, 1);<br>
}<br>
else {<br>
$j++;<br>
}<br>
}<br>
else {<br>
$i++;}<br>
}<br>
[download]

Thanks for the help. Okay. This time, I'm SURE I've got all the pieces, because I ran this as a separate Perl program. And, I get the following error when I run it:

Can't use string ("") as a HASH ref while "strict refs" in use at test-hash.pl line 19

Line 19 contains $arrayAoH$j{$key} = $value;

Thoughts?

Thanks! tl

#!/usr/bin/perl -w
use strict;
my @arrayAoH = "";
my $out = "First one:  one
Second one: second";

    my @discovered = split /\n/, $out;
    my $i = 0; # i holds the line number of the input (@discovered) ar
+ray.
    my $j = 0; # j holds the number of the table row.
   my $key;
   my $value;
# $# returns the subscript of the last element in the array.
    until ($i eq $#discovered){
        if ($discovered[$i] =~ m/First one:/){
# parse this line containing labels and values until a blank line is f
+ound
            until ($discovered[$i] eq ""){
                ($key, $value) = split /:\s*/, $discovered[$i];
##            $arrayAoH[$j] = { $key => $value };
                $arrayAoH[$j]{$key} = $value;
                $i++;
            }
            $j++;
        }
        else {
        $i++;}
    }
[download]