Select Code to Download

    my @sss = ("1","3","4");
    my $reee = [];
    for $entry (@sss){
    push (@$reee, $entry);}
    my $asdad = length @$reee;
    print "$asdad";