Help for this page
#!/usr/bin/perl -w use strict; ... } } print "$_ : $columns{$_}\n" foreach (keys %columns);
17 => 1 3 => 1