sub input {
    my $arrayref=shift;
    print "\nSo far you've guessed @$arrayref."
          if $arrayref;
    print "\nWhat is your guess?\n";
    chomp (my $in=<STDIN>);
    if ($in=~ /\d/) {
    		$in;
    	} else {
    		print "$in was not a number!";
    		input();
    	}
}