foreach my $value (@columns) {
    #print "$value\n"
}