>>162
undef $n; してりゃエラー出るだろ。これは初期化とは言わない。

while ($sortedmediacsv[$n] ne undef) {
これも。undef と比較してどうする。
そもそもキミが何をしたいのか意図が伝わらない。

細かいことを言えば、if {} のうしろの ; もいらない。
基本を理解していない証拠だな。

で、↓これならどうかな。
#!/usr/bin/perl -w

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

@sortedmediacsv = sort(@mediacsv);

for ($n = 0; $n < $#sortedmediacsv; $n++) {
　if ($sortedmediacsv[$n] eq $sortedmediacsv[$n+1]) {
　　print $sortedmediacsv[$n];
　　print $sortedmediacsv[$n+1];
　}
}