#!/usr/bin/perl

for($i=0; $i<5; $i++) {
	dobas();
}

print "\n";

sub dobas {
    print int(rand(6))+1 . " ";
}