use Algorithm::Loops qw( MapCar );

my @data = MapCar { [ @_ ] }
           @{ $sth->fetchall_arrayref() };