while (my @row = $sth->fetchrow_array) {
  push @arrTemp2, do { my %h; @h{qw/hunde katzen kamele ratten maeuse/} = @row; \%h }
}