my ($cols_ref, $hw_ref) = new Itiv::Hw->all_hw($dbh, $filter);

##</code><code>##

for my $col ( @$cols_ref ) {
  print "$col\n";
}