#!/usr/bin/perl 
use strict;
use warnings;
use diagnostics;

my %stat_for = (
        strength => undef,
        intelligence => undef,
        dexterity => undef,
);

while ( my ( $stat_name, $randvalue ) = each %stat_for ) {
        my $randvalue = ( 1 + int(rand(6)) );
        my $randv2 = ( 1 + int(rand(6)) );
        my $true = $randvalue + $randv2;

print <<"END";
Strength: $true\n
Intelligence: $true\n
Dexterity: $true\n
END
}