#get array ref
my $results=$sth->fetchall_arrayref;
#rec 4 is array element 3 due to the 0 element
#my $field=$result->[row][fieldno]
my $field1=$results->[3][0];
my $field2=$results->[3][1]; 
my $field3=$results->[3][2];