print "Element $_: $parts[$_]\n" for (0..$#parts);