Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    }
}
print "$_ : $columns{$_}\n" foreach (keys %columns);

17 => 1
3  => 1