Never test for equality with undef, ever. You want to do:

if (@clocked_in == 0) { ... }  # empty
# or
unless (@clocked_in) { ... } # empty
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a (from-home) job
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;