Select Code to Download

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