for my $extension ( qw/log inx pdf/ ) {
# ersetze die extension; 
substr($basename,-3,3,$extension);

unlink $basename or warn "$basename: $!\n";
}