use List::Util"min";print<>*min(glob<>)