#!/usr/bin/perl

use strict;
use warnings;

my $csvPath; # Pfad zu Deinem csv-Dokument

open my $csvFH, "<", $csvPath or die $!;

my @header = split /;/, <$csvFH>;

print join "\t", @header;

while (my @row = split /;/, <$csvFH>) {
    print join "\t", @row;
}