my ($first, @rest) = ; warn "first: $first"; warn "rest:\n@rest"; __DATA__ header line1 line2