Help for this page
Select Code to Download
Select
or
download this
grep {substr($_,0,1) ne 'f'} @array
Select
or
download this
my %hash1 = map {getkey($_) => $_} grep {substr($_,0,1) ne 'f'} @array;