I am coding in perl, how can you write into a csv file multiple variables and put each one in a separate cell in the same line.
this a part of my Code:

```
#!/usr/bin/perl
use feature qw(say);
use strict;
use warnings;
use constant BUFSIZE => 6;
my $year += 1900;

my $input_file = 'path\ZONE0.txt';
my $outputfile = 'path\outputfile.csv';
open (my $BIN, "<:raw", $input_file) or die "can't open the file $input_file: $!";
my $buffer;
open(FH, '>>', $outputfile) or die $!;
while (1) {
    my $bytes_read = sysread $BIN, $buffer, BUFSIZE;
    die "Could not read file $input_file: $!" if !defined $bytes_read;
    last if $bytes_read <= 0;
    my @decimal= map { unpack "C", $_ } split //, $buffer;

    my $start= $decimal[0];

    my $DevType = $decimal[1];
    my @hexDevType = sprintf("0x%x", $DevType); 

    my @DevUID =($decimal[5], $decimal[4], $decimal[3], $decimal[2]);
    my @hexDevUID = map { sprintf("0x%x",$_) } @DevUID; 
    print FH $start, ' ' , print FH $DevType,' ',  @hexDevUID , "\n";
}

close $BIN;

```

this results in puting all the variable next to each other in one cell, which is not what I want. can you help me separate the variables.