#!/usr/bin/perl


max(2,3);

sub max {
	
	my $argument1=shift(@_);
	print "$argument1\n";
	my $argument2=shift(@_);
	print "$argument2\n";
}