#!/usr/bin/perl

use strict;
use warnings;

sub random {
  my $rand_count = shift;
  my @values;

  for (0 .. $rand_count-1) {
    push @values, rand(100);
  }

  for my $i (0 .. $rand_count-1) {
     print $values[$i], "\n"
  }
}

random(5);