my $some_data =[

    ["HP Hardware", "Total Cost"],

    [$hardware1, $hardwareValue1],

            [$hardware2, $hardwareValue2],

            [$hardware3, $hardwareValue3],

            [$hardware4, $hardwareValue4],

            [$hardware5, $hardwareValue5],

            [$hardware6, $hardwareValue6],

            [$hardware7, $hardwareValue7],

            [$hardware8, $hardwareValue8],

            [$hardware9, $hardwareValue9],

            [$hardware10, $hardwareValue10],

            [$hardware11, $hardwareValue11],

            [$hardware12, $hardwareValue12],

            [$hardware13, $hardwareValue13],

            [$hardware14, $hardwareValue14],

            [$hardware15, $hardwareValue15],

 ];

 

for (my $i=0; $i< scalar($some_data); $i++) {

 

            if ($hardware[$i] eq "") {

                        

            }

 

}