sub _wafer_parse { my $self = shift; open my $FILE, "<", $self->{file}; while ( <$FILE> ){}; close $FILE; }