undef NULL values are represented by undefined values in Perl

$employee_id = (defined $row[0]) ? $row[0] : '';
[download]

Question 2: do a select for that row. Using fetchrow_array(), it will return an empty list if there wasn't a row, so

@foo = $sth->fetchrow_array();
if (@foo) {
...
} else {
...
}
[download]