sub fred {
    my( $x, $y ) = @_;
    my $result = $x * $y;
    return $result;
}

##</code><code>##

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
}