Select Code to Download

use strict;
use warnings;
...
print "After calling the sub test_this \@arr: @arr\n";

pritesh@t430:~$ perl test.pl 
Before calling the sub test_this @arr: 1 2 3 4 5 6 7 8 9 10
...
After calling the sub test_this @arr: 2 4 6 8 10 12 14 16 18 20
pritesh@t430:~$