failing perl script section

example1.pl

use 5.010;

open(my $config, ">" "$configfile") or die $!;

$output = $row->{value};
my @output = split(/\n/, $output);
if ($wroteToFile)
{
    foreach (@output)
    {
    say $config "$_";
    }
}

example2.pl

$output = $row->{value};
if ($wroteToFile)
{
    print CONFIG "$output";
}