$num = <STDIN>;

##</code><code>##

my $num = <STDIN>;

##</code><code>##

for ( $x = 1; $x <= $y; $x++ )

##</code><code>##

for my $x ( 1 .. $y )