have fun with subroutines args

subs_args.pl

#!/usr/bin/env perl
use strict;
use warnings;

my @file = ("med.txt");

&columnize(@file);

sub columnize {
  foreach my $file(@_) {
    open(F, '<:utf8', $file);

    while(<F>) {
      my @colonne = split(",", $_);
      print join("\t", @colonne);
    }

    close(F);
  }
}