Select Code to Download

my %users = map { $u => 0 } qw/ list of users to watch /;

...
    }
    sleep 2;
}

use Tie::Scalar;
@ISA = (Tie::StdScalar);
...
    $user{$_} = $curr{$_} for @list;
    sleep 2;
}