Select Code to Download

my $thing = UnPack (1, $stringpack);

use strict;
use warnings;
...
sub listy {
    return @_;
}

Count 1, first: 1, elements: 1
Count 3, first: 1, elements: 1 2 3

my ($thing) = UnPack (1, $stringpack);