my $suffix = ( split /\./, $filename )[-1];