19:23 >perl 1378_Smoothsort.pl
bar(5)
for loop: 0
bar(5)
for loop: 1
bar(5)
for loop: 2
bar(5)
for loop: 3
bar(5)
for loop: 4
bar(5)
----------
bar(5)
foreach loop: 0
foreach loop: 1
foreach loop: 2
foreach loop: 3
foreach loop: 4

19:23 >