use strict;
use warnings;

use YAML::Syck qw( Dump );

my $src = pack( "N10 a5 n", 0..9, "abcde", 99 );

my( @a, $b, $c );
(@a[0..9],$b,$c) = unpack( "N10 a5 n", $src );

print Dump( { a => \@a, b => $b, c => $c } ), "\n";

exit 0;

__END__
--- 
a: 
  - 0
  - 1
  - 2
  - 3
  - 4
  - 5
  - 6
  - 7
  - 8
  - 9
b: abcde
c: 99