my ($foo, $bar, $baz) = do_something();

sub do_something 
{
    return 1, 2, 3;
}