#!/usr/bin/env perl

use strict;
use warnings;

csinal(45, 23, 88, 92);

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