@results= map(/^(lean : sigma)/,@arr);
print "First content=> $_\n" for @results;