use Data::Dumper;

print "\$columns[0] = '$columns[0]'\n";
$users{$columns[0]} = 'x';   # or whatever
print Dumper(\%columns);     # give us a nice view of %columns