Select Code to Download

sub combine_rows
{
...
    }
    return \@joined;
}

@ports = qw( portname portID port802 );
@val1 = qw( ON ON OFF );
...
my $joined = combine_rows( "ports", \@ports, \@val1, \@val2 );

print "$_\n" for ( @$joined );