# Dyn.pm
package Dyn;
use strict;
use warnings;

sub _max { 10 }
sub _rand { rand(shift) }
sub _range {
  my $max = _max();
  my $rand_max = _rand($max);
  return (0..int($rand_max));
}

sub get_list {
  my @arr = ();
  push @arr, $_ for _range();
  return @arr;
}

1;

__END__