#!/usr/bin/perl
use strict;
#no strict "vars";
use warnings;


print "Hello Alper\n";
print "43\n";
#SCALARS
my $alper = 35; 				#DEGISKENLER BOYLE TANIMLANIYOR
my $sarper = "What THE fuck";			#NE TUR OLDUKLARI ONEMLI DEGIL PERL ANLIYOR
print "$sarper ";				#TANIMLANAN DEGISKEN BOYLE YAZDIRILIYOR
print  "$alper \n";				#BOYLE DE YAZDIRILIYOR BIR SONRAKI SATIRA ATLATILARAK
print $sarper," = ",$alper*$alper ,"\n" ;	#BU SEKILDE BIR KAC SEYI BIRDEN YAZDIRABILIRSIN

#ARRAYS
my @array = ("3","2","1","4","alper");		#DIZI BU SEKILDE TANIMLANIYOR
print @array, "\n";				#DIZI BU SEKILDE YAZDIRILIYOR
print $array[1],"\n";				#DIZININ HER HANGI BIR ELEMANI BU SEKILDE YAZDIRILIYOR
print $array[$#array],"\n";			# $#diziadi DIZININ SON ELEMANIN INDEX NUMARASINI VERIYOR VE
print $#array,"\n";				#DIZININ ELEMANLARINA 0'DAN BASLAYARAK INDEX ATAN
print $#array+1,"\n";				#DIZININ ELEMAN SAYISINI VERIR
print @array[1,2],"\n";				#DIZININ BIR KAC ELEMANINI BIRDEN YAZDIRMAK ICIN KULLANILIR
print @array[1..3]				#DIZININ 1. ELEMANINDAN 3. ELEMANINA KADARINI YAZAR
						# http://perldoc.perl.org/perlintro.html#Running-Perl-programs
						#kisminda my @sorted kismini calistiramadin bunun cevabini bul
#HASHES

my %bahar = (
	ilk => "1",
	son => "2",
	);