#!/usr/bin/perl -w
@a = qw( 1 1 1 1 1 1 1 1 2 3 );
print $a[ int(rand 9) ];