Select Code to Download

#!/usr/bin/perl

...
print $AoH[0]->{heading}->[1]->{item};
print $AoH[0]->{heading}->[2]->{item};
print $AoH[0]->{heading}->[3]->{item};