my %unitMap;
my $cmd  = "hpacucli ctrl slot=0 pd all show";;
open my $fd, "$cmd|" or return \%unitMap;
while (my $row = <$fd>) {
        $row =~ /^$/ and next;
        $row =~  s/[,|)|(]//g;
        chomp $row;
        next if  $row =~ /^Smart/g;
        $row =~ s/^\s+//;
        next if $row =~ /^unassigned\n\nOK$/;
# I am trying to delete the line that starts with unassigned and 2 lines after that
        print "$row\n";