Count matches in string: my $cnt = ($str =~ tr/p/p/); # counts the number of times p is found in string

Sum array: my $cnt = 0; ($cnt+=$_) @array;

Count matches in array: my $cnt = scalar( grep {/p/} @array); # counts the number of times p is found in array

Index of maximum array element: my $idx=0; $data[$idx] > $data[$_] or $idx = $_ for 1..$#data;

Environmental Variables:`%ENV`, for example `$ENV{'HOME'}`

Hash slice:`@hash{@array}`

Sum array: my $cnt = 0; ($cnt+=$_) @array;

Count matches in array: my $cnt = scalar( grep {/p/} @array); # counts the number of times p is found in array

Index of maximum array element: my $idx=0; $data[$idx] > $data[$_] or $idx = $_ for 1..$#data;

Environmental Variables:

Hash slice:

PerlCountMatchesInString?: my $cnt = ($str =~ tr/p/p/); # counts the number of times p is found in string

PerlSumArray?: my $cnt = 0; ($cnt+=$_) @array;

PerlCountMatchesInArray?: my $cnt = scalar( grep {/p/} @array); # counts the number of times p is found in array

PerlIndexOfMaxElementInArray?: my $idx=0; $data[$idx] > $data[$_] or $idx = $_ for 1..$#data;

PerlEnvironmentalVariables?:`%ENV`, for example `$ENV{'HOME'}`

PerlHashSlice?:`@hash{@array}`

]]>PerlSumArray?: my $cnt = 0; ($cnt+=$_) @array;

PerlCountMatchesInArray?: my $cnt = scalar( grep {/p/} @array); # counts the number of times p is found in array

PerlIndexOfMaxElementInArray?: my $idx=0; $data[$idx] > $data[$_] or $idx = $_ for 1..$#data;

PerlEnvironmentalVariables?:

PerlHashSlice?:

Count matches in string: my $cnt = ($str =~ tr/p/p/); # counts the number of times p is found in string

Sum array: my $cnt = 0; ($cnt+=$_) @array;

Count matches in array: my $cnt = scalar( grep {/p/} @array); # counts the number of times p is found in array

Index of maximum array element: my $idx=0; $data[$idx] > $data[$_] or $idx = $_ for 1..$#data;

Environmental Variables:`%ENV`, for example `$ENV{'HOME'}`

Hash slice:`@hash{@array}`

Sum array: my $cnt = 0; ($cnt+=$_) @array;

Count matches in array: my $cnt = scalar( grep {/p/} @array); # counts the number of times p is found in array

Index of maximum array element: my $idx=0; $data[$idx] > $data[$_] or $idx = $_ for 1..$#data;

Environmental Variables:

Hash slice:

PerlCountMatchesInString?: my $cnt = ($str =~ tr/p/p/); # counts the number of times p is found in string

PerlSumArray?: my $cnt = 0; ($cnt+=$_) @array;

PerlCountMatchesInArray?: my $cnt = scalar( grep {/p/} @array); # counts the number of times p is found in array

PerlIndexOfMaxElementInArray?: my $idx=0; $data[$idx] > $data[$_] or $idx = $_ for 1..$#data;

PerlEnvironmentalVariables?:`%ENV`, for example `$ENV{'HOME'}`

PerlHashSlice?:`@hash{@array}`

]]>PerlSumArray?: my $cnt = 0; ($cnt+=$_) @array;

PerlCountMatchesInArray?: my $cnt = scalar( grep {/p/} @array); # counts the number of times p is found in array

PerlIndexOfMaxElementInArray?: my $idx=0; $data[$idx] > $data[$_] or $idx = $_ for 1..$#data;

PerlEnvironmentalVariables?:

PerlHashSlice?:

]]>

]]>

]]>

]]>

PerlIndexOfMaxElementInArray?: my $idx=0; $data[$idx] > $data[$_] or $idx = $_ for 1..$#data;

]]>PerlIndexOfMaxElementInArray?: my $idx=0; $data[$idx] > $data[$_] or $idx = $_ for 1..$#data;

]]>PerlCountMatchesInArray?: my $cnt = scalar( grep {/p/} @array); # counts the number of times p is found in array

PerlCountMatchesInArray?: my $cnt = scalar( grep {/pattern/} @array); # counts the number of times p is found in string

]]>PerlCountMatchesInArray?: my $cnt = scalar( grep {/p/} @array); # counts the number of times p is found in array

PerlCountMatchesInArray?: my $cnt = scalar( grep {/pattern/} @array); # counts the number of times p is found in string

]]>PerlCountMatchesInString?: my $cnt = ($str =~ tr/p/p/); # counts the number of times p is found in string

PerlCountMatchesInArray?: my $cnt = scalar( grep {/pattern/} @array); # counts the number of times p is found in string

PerlCountMatchesInArray?: my $cnt = scalar( grep {/pattern/} @array); # counts the number of times p is found in string

PerlCountMatches?: my $cnt = ($str =~ tr/p/p/); # counts the number of times p is found in string

]]>PerlCountMatchesInString?: my $cnt = ($str =~ tr/p/p/); # counts the number of times p is found in string

PerlCountMatchesInArray?: my $cnt = scalar( grep {/pattern/} @array); # counts the number of times p is found in string

PerlCountMatchesInArray?: my $cnt = scalar( grep {/pattern/} @array); # counts the number of times p is found in string

PerlCountMatches?: my $cnt = ($str =~ tr/p/p/); # counts the number of times p is found in string

]]>PerlSumArray?: my $cnt = 0; ($cnt+=$_) @array;

]]>PerlSumArray?: my $cnt = 0; ($cnt+=$_) @array;

]]>PerlCountMatches?: my $cnt = ($str =~ tr/p/p/); # counts the number of times p is found in string

PerlCountMatches?: my $cnt = ($str =~ tr/pat/pat/); # counts the number of times pat is found in string

]]>PerlCountMatches?: my $cnt = ($str =~ tr/p/p/); # counts the number of times p is found in string

PerlCountMatches?: my $cnt = ($str =~ tr/pat/pat/); # counts the number of times pat is found in string

]]>PerlCountMatches?: my $cnt = ($str =~ tr/pat/pat/); # counts the number of times pat is found in string

]]>

]]>