#!/usr/bin/env perl

$szam = 45; # globális változó
sub ki {

	my $kor = 35; # helyi változó
	my ($a, $b, $c); # helyi változó
	$a = 100; $b = 200; $c = 300;
	$fizetes = 885000.0;
}

ki();
print $fizetes;