my @data;
my $col=0;
my %fields;

foreach( @{$sth->{NAME_lc}} ){
  $fields{$_} = $col++;
}

while(my $ref=$sth->fetchrow_arrayref){
  push( @data, $ref );
}

my $var1 = $data[0]->[$fields{column1}];
my $var2 = min map{ ( $_->[$fields{column1}] ) }@data;