while (<DATA>) {
        if ($.==1) {
                # Something
        }
        else {
                unless (/^\s*$/) {
                        $matrix[1][$i++]=$_;
                }
        }
}