find( sub {
    push(@datein, $File::Find::name) if /\.($ext)$/i;
}, $base );