my $empty;
my ($empty,@var) = ...;