#!/usr/bin/perl
use File::Basename;

die "Usage: perl " , basename(__FILE__), " n\n" if (!($ARGV[0] =~ /^\d+$/));

#code start
my @data = ([qw/청기 백기 둘다/],[qw/올 내/],[qw/려 려 리지마/]);

local $\ = "\n";
print map { @$_[rand @$_] } @data for 1..$ARGV[0];

#code credit to aero from KLDP - http://kldp.org/node/105514#comment-488207