@number = qw(1 2 3 4 5 10 11 12 13 14);

@num = map ($_ *$_, (@number)), "\n";
@square = grep ($_ >=100 && $_ <=200, @num);

print "Obtaining square values using map/grep: @square \n";