for my $filename (@filenames) {
    open my $dsspIn, '<', $filename or die "Unable to open $filename: $!\n";

    #Create a new DSSP object
    my $dssp_obj = Bio::Structure::SecStr::DSSP::Res->new ('-file'=> $dsspIn);
    ...
    close $dsspIn;
}