I can't figure out why there is a new line created on line 6 after print and before $price1?

You can figure it out if you examine your data by ddumpering^{Basic debugging checklist} to visualize your data (lesson courtesy of Basic debugging checklist and brian's Guide to Solving Any Perl Problem )