use Digest::MD5 qw(md5_hex);
my $name = "123456.jpg";
my $path = md5_hex($name);
$path =~ s#^(.)(.)(.).*#$1/$2/$3/$name#;