Destructuring assignment for Perl