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