foreach my $screen_name ( @{ $conf->{allow}{screen_name} } ) {
if ($tweets->{$id}{screen_name} eq $screen_name) {
DEBUG and warn "$id was allowed by screen_name\n";
foreach my $screen_name ( @{ $conf->{allow}{screen_name} } ) {
if ($tweets->{$id}{screen_name} eq $screen_name) {
DEBUG and warn "$id was allowed by screen_name\n";