#!/usr/bin/perl

use strict -w;

sub Random ()
{
     my $randnum = int (rand(18))+1;
     return $randnum;
}

my $x=0;
while ($x<=5)
{
@STR[$x]=Random();
@INT[$x]=Random();
@WIS[$x]=Random();
@DEX[$x]=Random();
@CON[$x]=Random();
@CHR[$x]=Random();
$x++;
}
print("Strength:\t\t");
my $x=0;
while($x<=@STR)
{
     print ("$STR[$x]\t");
     $x++;
}
print("\n");
print("Intelligence:\t\t");
my $x=0;
while($x<=@INT)
{
     print ("$INT[$x]\t");
     $x++;
}
print("\n");
print("Wisdom:\t\t\t");
my $x=0;
while($x<=@WIS)
{
     print ("$WIS[$x]\t");
     $x++;
}
print("\n");
print("Dexterity:\t\t");
my $x=0;
while($x<=@DEX)
{
     print ("$DEX[$x]\t");
     $x++;
}
print("\n");
print("Constitution:\t\t");
my $x=0;
while($x<=@CON)
{
     print ("$CON[$x]\t");
     $x++;
}
print("\n");
print("Charisma:\t\t");
my $x=0;
while($x<=@CHR)
{
     print ("$CHR[$x]\t");
     $x++;
}
print("\n");