#!/usr/local/bin/perl

 @dizi1 = (14, "ekmek", 1.23, -7, "su");

 @dizi2 = @dizi1;

 $say = 1;

 while ($say <= 5) {

          print("eleman $say: $array1[$say-1] ");

          print("$dizi2[$say-1]\n");

         $say++;

 }