@HappyArray=("Perl","Is","Confusing","Would","Someone","Please","Help","Me");
$printnumber=-1;

foreach (@HappyArray) {
inc $printnumber 1;
print "$HappyArray[$printnumber]\n";
}
die "Done!\n";