<>; @a=glob<>; for$a(@a){ for$b(@a){ $x=$a+0^$b; $m=$x if $m<$x; } } print $m+0;