Arrays

#!/usr/local/bin/perl
#program that copies an array and compares the elements of two arrays

@array1 = (14, "cheeseburger", 1.23, -7, "toad");
@array2 = @array1;
$count = 1;
while ($count <= @array1) {
        print("element $count:\t $array1[$count-1] ");
        print("\t\t$array2[$count-1]\n");
        $count++;
}