Hi deyaneria,
Welcome to using Perl Programming Language.

To start with I will advice you always use warnings and strict in your perl program.
Secondly, am sure your perl program as you showed above would not compile to start with. Why? Does perl has "Do" or "do", "While" or "while", "Else" or "else".

I think there is need to write the right syntax, then logic can then be put in the right place.