foreach my $stmt (@data) 
    { 
        $worksheet->write($row++, @data); # !!
        last; 
    }


##</code><code>##

    write($row, $column, $token, $format)


##</code><code>##

    $worksheet->write($row++, 0, $stmt);