...
my %inserted = map { $_ => 0 } @list;
...
        $txt_scroll->insert( 'end', "SELECTED IP : $current_ip\n" )
           unless $inserted{ $current_ip } ++;
...