That's all I'm saying.my @country = ("Australia", "south","Austria","America","India","Zimba +bwe"); my %list; foreach (@country) { /^(.)/ and push @{$list{uc $1}}, $_; } foreach (sort keys %list) { print "$_\n=\n"; print "$_\n" for sort @{$list{$_}}; print "\n"; }
In reply to Re: I ve an urgent issue..
by bart
in thread I ve an urgent issue..
by sara_perl
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |