Select Code to Download

 use strict;
use warnings;
use Data::Dumper;
...
my @var = split /,/, $list;

print Dumper \@var;