correct way to timer in perl as far as I understand

@unbanq = ();
$unbanqn = 0;

for ($n = 0; $n < $unbanqn; $n += 3)
{
    if (time() > $unbanq[$n])
    {
        $uchan = $unbanq[$n + 1];
        $unick = $unbanq[$n + 2];
        splice(@unbanq, $n, 3);
        $unbanqn = @unbanq;
        print "-- unbanning $unick";
        $server->command("mode $uchan -b $unick!*@*");
    }
}

if ($text eq ".r 1950")
{
    print "-- kickbanning $nick -- .r 1950";
    $server->command("mode $target +b $nick!*@*");
    $server->command("kick $target $nick YOU'RE ALWAYS \x02SUPER SPECIAL, \x02THAT'S WHY YOU ARE \x034BANNED\x0F FROM HERE ?(?益??");
    push(@unbanq, (time()+60, $target, $nick));
    $unbanqn = @unbanq;
}