Array Perl

@array = ( "Hello", 283, "there", 16.439 );
# display every element of the array
$i = 0;
while ( $i < 4 ) {
   print "$i   $array[ $i ]\n";
   ++$i;
}