in reply to Safe string handling
sub min { my $r = shift; map { $r = $_ if $r > $_ } @_; return $r; } [download]