use warnings;

while(<>) {eval $_}

sub radius {
@x = (); for(0..9) {print $x[$_] = int(rand(100)); print"|"} print "\n";
@y = (); for(0..9) {print $y[$_] = int(rand(100)); print"|"} print "\n";


print "R-?\n";
$R = <>;
$D = 0;
for(0..9) {($x[$_] < $R && $y[$_] < $R) ? (++$D) : ();}

print "Dots in radius: ".$D;
}


sub matrix {
@data = ();

	for my $x(0..3) {
		for my $y(0..5) {
			print $data[$x][$y] = int(rand(100))."  ";
		}
		print "\n";
	}

print "\n";

	for my $x(0..3) {
		$max = $data[$x][0];
		for my $y(0..5) {
			($max < $data[$x][$y]) ? ($max = $data[$x][$y]) : ();
		}
		print "Line $x maximum - $max\n";
	}
}