#!/usr/bin/perl -w
use strict;
my $RandNums = "";
for(my $i = 0; $i < 20; $i++){
$RandNums = $RandNums.','.rand(20);
}
my @array = ($RandNums);

print @array;