my @valid_extensions = qw/ .tar.gz .html .zip /;

foreach my $file ( @files ){

    my $suffix = ( fileparse( $file, @valid_extensions ) )[2];

    print $suffix, "\n";
}