use warnings;
use strict;

##</code><code>##

if ($index == scalar(@softed)){

##</code><code>##

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

##</code><code>##

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