use Text::CSV;
my $csv = Text::CSV->new({sep_char => ";"});
[...]
my @headers2 = map { $headers1{$_} } split /;/, $header2;
[...]