in reply to Please help

print: "Before: @array \n";

[download]
You have extra ':' after 'print'.

In Section Seekers of Perl Wisdom