Select Code to Download

use strict;

...
}
print "Array contains:\n";
foreach my $elem (@arr) {print "$elem\n";}