Select Code to Download

use strict;
use Data::Dumper;
...
            } split /,/, $list;

print Dumper(\@s);

$VAR1 = [
          1,
...
          '89xDF',
          '89xDG'
        ];