#!/usr/local/bin/perl @array = (14, "abc", 1.23, -7, "ddd"); $count = 1; while ($count <= @array) { print("element $count: $array[$count-1]\n"); $count++; }