for my $key ( keys %files )
{
    my $original = path($key);
    die "There is no file $original" unless -f $original;
    my $destination = path($files{$key});
    $destination->parent->mkpath unless -d $destination->parent;
    $original->move($destination);
}