my $unpack_template;
my @names;

for (@list) {
  die "Don't know what to do with $_" unless /^\d+: ([-a-z]+) (\d+)$/;
  $unpack_template .= "A$2";
  push @name, $1;
};

print "I will be unpacking using '$unpack_template'\n";

my @values = unpack $unpack_template, $string;

# Now, pack everything into a nice hash so we can use the name
# to address the value:
my %result;
@result{ @name } = @values;

for my $k (sort keys %result) {
  print "$k => $result{$k}\n";
};