#!/usr/bin/env perl

use strict;
use warnings;
use List::Util \'shuffle\';

print join \", \", (shuffle 1..45)[0..5];