var %record, @records;
  @record{@colNames} = split(',', $line);
  push @records, \%record;

##</code><code>##

sub total_inventory {
    my $data = shift;
    List::Util::sum(map {$_->{'Inventory'}} @$data);
}