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