Select Code to Download

sub build_list {
   my $item = shift;
...
   $list = build_list 'a', $list;
   print(@$list, "\n");  # abc
}