Select Code to Download

% foreach my $n ( @{ $data->{ names } || [] } ){

...
     % last;
  % }
% }

% foreach my $n ( @{ $data->{ names } || [] } ){
...
     % last;
  % }
% }

#!/usr/bin/env perl

...
 }