use strict;
    use warnings;

    &main();
    sub main()
    {
    print "hello\n";

    while(1)                    # #1
    {
          print "go~\n";
          sleep(2);
    }
    }

解释原因：
stdout流是缓冲的,因此只会在到达换行符后(或者告诉它时)显示缓冲区中的内容.您没有使用换行符,因此文本将被附加到缓冲区,直到缓冲区的大小.

如果您不想使用换行符,请在开头添加以下行

use IO::Handle;
STDOUT->autoflush(1);