#!\usr\bin\perl
use strict;
use warnings;

my %ders_kodu = (
	324 => "reaktor",
	342 => "isi",
	);
print $ders_kodu{"324"};