#!/usr/bin/perl -w

use strict;

my %num;

while ((keys %num) < 5) {
  $num{int(rand(50)+1)} = 1;
}

print join(' ' , sort {$a <=> $b} keys %num) . "\n";