sub genList {
    my( $start, $end, $step ) = @_;
    my @list;
    for( my $i=$start; $i < $end; $i += $step } push @list, $i;
    return \@list;
}
...
if( ???  ) { 
    my $arrayRef = getList( 10, 99, 3 );

    ## use list
}