sub parse {
   my ( $self, $resource, $something ) = @_;
   ...
}

##</code><code>##

for my $i ( 0..@{$resource} - 1 ) {
  ...
}