my $data = join "\n", @{ +sql() }; ... Data => $data ...