Select Code to Download

use strict;
use warnings;
...
}
print Dumper \@list; # check that the content of @list is what you exp
+ect
# ...