Help for this page
$num = <STDIN>;
my $num = <STDIN>;
for ( $x = 1; $x <= $y; $x++ )
for my $x ( 1 .. $y )