use Time::HiRes qw( usleep  );
subone();
usleep (100); #sleep for 100 ms
subtwo();
usleep (100); #sleep for 100 ms
...