/* C idiom */
    for (i = 0; i < arr_length; i ++) {
        printf ("%d\n", arr [i]);
    }
 
    # Perl idiom
    foreach (@arr) {
        print "$_\d";
    }