This isn't how you pass parameters in Perl. Parameters that are passed into subroutines are accessed within the subroutine through the @_ special array:

sub foo {
    my( $bar, $baz ) = @_;
    print "\$bar contains <<$bar>>\n";
    print "\$baz contains <<$baz>>\n";
}

foo( "Hello,", "world!" );
[download]

Please refer to perlintro#Writing-subroutines for more insight. And for almost everything you ever wanted to know about passing parameters into subroutines, there's perlsub.

There are also a few syntax and misspelled variable errors:

• while (CSV>) ...: Missing < from the <> operator.
• if $csv->parse($_)) ...: Missing ( from if() condition.
• open (OUTPUT2,">","$FINALCSV);: Missing closing quote from "$FINALCSV
• while <$fh>) ...: Missing opening paren from while() construct.
• my ($name, ......, @addrs)..., followed by unpack('C4', $addr[0]);: Misspelling of variable name. use strict; would have caught that under the 'vars' rule of strictures.

In the future, please post actual code, copied and pasted, and make sure your code is compliant with use strict;, since strict will help you catch errors yourself without the intervention of the Monastery.