A simpler approach would be to use File::Find::Rule

my @ext = map "*.$_", qw( .tmp .bak .$$$ .chk .old .gid
                          .fts .ftg .log .dmp .--- .prv .temp );

unlink find(file => name => \@ext, in => '/');
[download]

See. unlink and File::Find::Rule for more info.