DB<116> $_={a=>1,b=>2,c=>3,d=>0}
 => { a => 1, b => 2, c => 3, d => 0 }

  DB<117> sub tst { @$_{a,d} }

  DB<118> tst()
 => (1, 0)

  DB<119> scalar tst()
 => 0