@time = (1..5);
foreach (@time) {
 print ".";
 sleep 1;
}