#!/usr/bin/perl -wl

for (1..5) {
  my $i = rand();
  print \$i;
}