# usage: my @AoA = range($start,$stop[,$step]);

sub range {grep!(($_-$_[0])%($_[2]||1)),$_[0]..$_[1]}