use strict;
my $i = 0;
my $j = 0;
my @discovered;
my @arrayAoH;
@discovered =(" : hfjfda","rk qjhre:kjfsngfnfd","sdfjlksjf : sfljkheglerg");
my $key;
my $value;
until ($i eq $#discovered){
if ($discovered[$i] =~ m/Item Number:/){
until ($discovered[$i] eq ""){
($key, $value) = split /:\s*/, $discovered[$i];
$arrayAoH[$j]{$key} = $value;
$i++;
}
if (($arrayAoH[$j]{"Model Number"} !~ m/^Foo/)){
splice (@arrayAoH, $j, 1);
}
else {
$j++;
}
}
else {
$i++;}
}