use strict;
use warning;

##</code><code>##

if ($another == 'y')

##</code><code>##

my $another = <STDIN>;
chomp $another;
if ($another eq 'y') {
    ...
}

##</code><code>##

$draw1 = int &draw; 

##</code><code>##

sub draw {
  $draw = int rand(10);
}