sub byfilename
{
        if($a =~ /detail$/)
        {
                return 1;
        }

        if($b =~ /detail$/)
        {
                return -1;
        }

        $a =~ m/(\d+)/;
        $na = $1;
        $b =~ m/(\d+)/;
        $nb = $1;
        $na <=> $nb;
}