#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV;

my @ports = qw(portname portID port802);
my @val1  = qw(ON ON OFF);
my @val2  = qw(EX EX NEX);

my $csv = Text::CSV->new ({sep_char => ';', eol => "\n", auto_diag => 1 });

for (@ports) {
    $csv->print (*STDOUT, [ $_, shift @val1, shift @val2 ]);
    }