@time = ( 1 .. 5 );
{
    local $| = 1;  # Set buffering to autoflush.
    foreach ( @time ) {
        print ".";
        sleep 1;
    }
}