sub fooge
{
     my ($foo, $bar) = (pop, pop);
}