foreach my $thing (@list) {
    #Something interesting
}