use Data::UUID; my $uuid_conv = Data::UUID->new; while (my $row = $sth->fetchrow_hashref) { $row->{a_uuid} = $uuid_conv->to_string ($row->{a_uuid}); }