Code: Perl
unless(@arr)
{
  ## empty
}