unless ($prev eq $line){
    push (@filtered,$prev);                
}