Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
 
...
for ($i=0; $i<=$#data; $i++){
    print "$i: $data[$i]\n";
}

Select or download this

#!/usr/bin/perl -w
 
...
for ($i=0; $i<=$#data; $i++){
    print "$i: $data[$i]\n";
}