#!/usr/bin/perl use warnings; my $min=INFINITY; my $max=-INFINITY; for my $x(@ARGV) { ($min, $max)=($x<$min? $x: $min, $x>$max? $x: $max); } print "$min\t$max\n";