if(($irgendwas % $schritt) == 0)
{
   # mach was
}

for (my $i=0;$i<=980;$i+=10) { # start;endbedingung;zaehler erhoehen
  print "$i\t";
}

my @list = map { $_ * 50 } 1..20; # 50,100,150,...

if ( $zahl =~ /^ # am anfang
  (\d) # erste ziffer
  \1+ # erste ziffer 1 oder n mal wiederholt (also 2x oder oefter)
  $ # ende
  /x ) {
  print "$zahl ist eine Schnapszahl";
}

#!/usr/bin/perl

use strict;
use warnings;

sub create_iter {
  my $i = 0;
  my $inc = shift;
  return sub { $i+=$inc; return $i }
}

my $iter = &create_iter(50);
print &$iter, ' ' for (1..20);
print "\n";
exit;