Better yet ... just use YAML.

use YAML;
use Data::Dumper;

print Dumper Load( do{ local $/; <DATA> } );

__DATA__
---
1234:
  first: Sam
  hobbies:
    - hunting
    - Perl Munging
  job: gunsmith
  last: Brown
2316:
  first: Jane
  hobbies:
    - Python open source
    - bowling
  job: financial analyst
  last: Doe
[download]

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)