>perl -wMstrict -le
"my @ra1 =   (   0,  1,    2,    0,     3,  -1);
 my @ra2 = qw(eeew  ok  fine  yech  great  bad);
 ;;
 RA1:
 for my $i (0 .. $#ra1) {
   next RA1 unless $ra1[$i] > 0;
   do_something_with($ra1[$i], $ra2[$i]);
   }
 ;;
 sub do_something_with { print qq{$_[0]: '$_[1]'}; }
"
1: 'ok'
2: 'fine'
3: 'great'