my @array = <FILEHANDLE>;
if (@array < 1) {
    # we have no lines, send an error message
}
eslif (@array > 1) {
    # we have a 'too many lines' error jim, send a message
}
else {
    # this porridge tastes *just* right ... continue with processing
}