@_ set to:
$VAR1 = [
          'year',
          2010,
          'time_zone',
          'Europe/London'
        ];
%p set to:
$VAR1 = {};