Using perl's control structures

Using perl