Perl destructuring bind (POC)