my $h = unpack2hash(
  [
  'l:$songid',
  'c8:@signature',
  'l:$genre',
  'f:$bpm',
  's3:@level',
  's:$unk',
  'l12:@unk2',
  'a24:$genres',
  'l2:@unk3',
  'a32:$title',
  'a32:$subtitle',
  'a32:$artist',
  'a32:$noter',
  'a32:$musicfile',
  'l:$jpg',
  'l3:@unk4',
  'l4:@notepos'
  ], $data);

##</code><code>##

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

##</code><code>##

my $h = unpack2hash( $data,
    'l:$songid',
    'c8:@signature',
    #...
);