columns from a table perl operation_3695