my $h = unpack2hash(
  [
    [ qw(l $ songid) ],
    [ qw(c8 @ signature) ],
    #...