And some creepy code

#!/usr/bin/perl -w

#generation of some rand

use strict;

my $RangeVal = undef;

#Get STDIN
while(1){
                print 'Enter qty of random values you need -> ';
                $RangeVal = <STDIN>;
                last if $RangeVal =~ /^\d+$/;
        }


$RangeVal = &RandGen($RangeVal); #exec of func
foreach (@{$RangeVal}){if(defined $_){print $_,"\n";}} #display



#function declaration#
sub RandGen{
            my $RangeVal  = shift;
            my @OutVector = undef;
            for(0..$RangeVal-1){push @OutVector,int(rand(10*$RangeVal)
+);}
            $RangeVal = \@OutVector;
            return $RangeVal;
           }
[download]