eval "use Time::HiRes qw( time sleep )";

foreach (@{ $userinfo }) {

    my $time = time();

    ...

    sleep 15 - ((time() - $time) % 15);
}