Select Code to Download

@out = grep($_ ne $prev && ($prev = $_), @content);
$vallid=@out;
...
}
$y++;
}

@out = grep($_ ne $prev && ($prev = $_), @content);
foreach my $line (@out) {
   print $line;
}

@out = grep($_ ne $prev && ($prev = $_), @content);
print @out;

open (DB,"$file_vol") or die;
print grep($_ ne $prev && ($prev = $_), <DB>);
close(DB);