#!/usr/bin/perl

my $k1;
my $k2;
my $k3;
my $k4;
my $k5;

sub dobasok {
        $k1 = int(rand(6))+1;
        $k2 = int(rand(6))+1;
        $k3 = int(rand(6))+1;
        $k4 = int(rand(6))+1;
        $k5 = int(rand(6))+1;
}

print "Név: ";
my $nev = <STDIN>;
chomp($nev);

dobasok();
print "$nev: $k1 $k2 $k3 $k4 $k5\n";
dobasok();
print "Számítógép : $k1 $k2 $k3 $k4 $k5\n";