my @array = ( 1, 2, 3, 4, 5 );
csv( @array ); # pass array into csv

sub csv { 
  my @passed_array = @_; # reteive array from @_
  foreach (@array) {
    print "$_\n";
  }
}