Select Code to Download

#!/usr/bin/perl  

...
print"\n Newarray (should be 4 4 4): @newarray\n\n";

exit;