if ( @$ref){
$textsc->insert('end',"Lets see Wich Ips are ON...\n");
@ipsproxy = map("$_->{ip}", @$ref);
$p = Net::Ping->new("icmp");
$p->bind('187.78.223.205 '); 
@validos = (''); 
foreach $aaa (@ipsproxy)
      { 
    print "$aaa is ";

$textsc->insert('end', "$aaa is ");
$mw->update;

# etc etc for all your print statements