#!/usr/bin/env perl

csinal(45, 31, 29, 21, 82);

sub csinal {
	foreach my $szam (@_) {
		print $szam."\n";
	}	
}