#!/usr/bin/perl

use warnings;
use strict;

open(my $fh, ">", "output.txt") or die;
my $i;
my $r;
for($i=0; $i<=3; $i++) {
    $r = int(rand(10));
    print "$r\n";
    print $fh "$r\n";
}
close($fh);