#!/usr/local/bin/perl

for ($x=0; $x<10; $x++) {
        print("INC[$x]=$INC[$x]\n");
}