Perl for foreach while 循环

for

for(my $i=0;$i<10;$i++){
    print $i;
}

foreach

foreach my $col_id (sort {$a<=>$b;} keys %col_hash){
    print $col_hash{$col_id};
}

while