Help for this page
smallest{ my ($dir,$arr_ref)=@_; ... $sc{$a} <=> $sc{$b} } map { "$dir/$_" } @$arr_ref)[0]; }