#!/usr/bin/perl

use strict;
use warnings;

use Text::CSV_XS; 
my $csv = Text::CSV_XS->new ({
    binary     => 1,  # Always do so
    auto_diag  => 1,  # Makes finding bugs a whole lot easier
    });
my $file = "File_name.csv"; # Now you can use it in error reporting
open my $fh, "<", $file or die "$file: $!"; # Three-arg open
$csv->getline ($fh) for 1, 2; # Skip first two lines
while (my $row = $csv->getline ($fh)) {
    tr/;,/ ./ for @$row;
    say join "\t" => @$row;
    }
close $fh;