while control structure exercise A, v1
fixed path to perl, added line breaks
added line to print the final variable value