$ perl -e 'use Data::Dump; sub Box { my $self = { $x => shift, $y => shift }; dd $self } Box(qw{a b c})'
{ "" => "b" }