foreach $col (keys %columns) {
     print...
}