$x=shift;map{$x=$_ if$_<$x}@_;$x 12345678901234567890123456789012