Select Code to Download

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

foreach (@arr) {
  if (/^(lean : sigma)/) {
    print "First content=> $1\n";
  }
}

@numberlist=('First','Second','Third','Fourth','Fifth'); #and so on as
+ high as the maximal number of matches you expect

...
foreach (@results) {
  print $numberlist[$i++]," content=> $_\n";
}