16行目の++$n;で
Use of uninitialized value in stringというエラーがでるのですが、
$n = 0;やundef $n;を入れて初期化してもエラーが出ます。
なぜですか？
（CSVで同じ行を見るためのスクリプトです）


#!/usr/bin/perl -w

undef $n;

open (MEDIACSV,"media_perl.csv");
@mediacsv = <MEDIACSV>;

@sortedmediacsv = sort(@mediacsv);

while ($sortedmediacsv[$n] ne undef) {
if ($sortedmediacsv[$n] eq $sortedmediacsv[$n+1]) {
print "$sortedmediacsv[$n]";
print "$sortedmediacsv[$n+1]";
};
++$n;
};

close (MEDIACSV);