%hay_que_bloquear = map { $_ =~ m/^([0-9.]+)/; $_ => $1 }