paveljurca · December 14, 2015 18:18
diff --git a/max.pl b/max.pl
 use strict;
 use warnings;
 use v5.10;
 for (my $i=1; $i < @ARGV; $i++) {
    ($ARGV[$i], $ARGV[$i-1]) = ($ARGV[$i-1], $ARGV[$i]) if $ARGV[$i-1] > $ARGV[$i];
 }
 say $ARGV[-1] || 'no numbers';
	use strict;
	use warnings;
	use v5.10;
	for (my $i=1; $i < @ARGV; $i++) {
	($ARGV[$i], $ARGV[$i-1]) = ($ARGV[$i-1], $ARGV[$i]) if $ARGV[$i-1] > $ARGV[$i];
	}
	say $ARGV[-1] \|\| 'no numbers';