my $prev = -1 - $pad; for(@padded_overlap) { if ( $_ > $prev ) { $prev = $_; # print stuff here } }