my ($foo,$bar) = shift;