Help for this page
($sub1, $sub2, $sub3) = split (/\_/, @array,3);
while my $elem (@array) { ($sub1,$sub2,$sub3) = split(/_/, $elem, 3); # do something here... }
$sub3 = sort { $b <=> $a } $sub3;
my @a2; while my $elem (@array) ... push @a2, \@fields; } my @a3 = sort { $b->[2] <=> $a->[2]} @a2;
www.com | www.net | www.org
No recent polls found