@out = grep($_ ne $prev && ($prev = $_), @content);
$vallid=@out;
$y=0;
open("LIST", ">$file_vol.flt") or die "Can't Open File: $!
+"; 
while($y<=$vallid){
    print LIST "$out[$y]";
}
$y++;
}  

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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