Select Code to Download

use strict;
use warnings;
...

# print "\@arr [@arr]\n";
#use Data::Dump;print dd(@arr);