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