my %data = %{$dbh->selectall_hashref()->[0]};