Help for this page

Select Code to Download


  1. or download this
    my @array = qw(Art bob joe andy willy Andrew john Archie);
foreach(sort {substr($a,1) cmp substr($b,1)} grep /^A/, @array){
...
Andrew
Archie
Art
  2. or download this
    foreach(sort {substr($a,1) cmp substr($b,1)} grep {substr($_,0,1) eq '
+A'} @array)