Select Code to Download

#!/usr/bin/perl
use strict; 
...
    use YAML::XS(); 
    print YAML::XS::Dump( $ref);

Outpatient_Services:
  AM01: 2
...
  AM04: 1
  LK01: 1
  LK02: 1