my @tables = qw*TADA*;
dumpResultsToFile ( <<"    END_SQL", join('.', @tables) );
    SELECT $tables[0].fileName, $tables[0].labelName
    FROM   $tables[0]
    END_SQL

sub dumpResultsToFile {
    my ( $query, $filename ) = @_;
    ...
    open my $fh, '>', "$filename.txt" or die