This looks awefully similar to troubleshooting perl sub routine and dbi error where you were told your first disconnect needs deleting.

You can examine the result returned from fetchrow_hashref to see how many columns are in it.