sub step {
   my $step=shift;
   my $count=0;
   my @array=@_;
   return sub {
      $return=$array[$count];
      $count+=$step;
      return $return
      };
   };
 
for ( my $s=step(5,2..100); my $res=&$s ; 1 ) {
   print "$res ";
   }