Select Code to Download

package Point;

...
}

print Dumper \@new_data;

my @data = (
    [
...
        bless({'X' => '45', 'Y' => '45'}, 'Point'),
    ],
);

$VAR1 = [
          [
...
                   }, 'Point' )
          ]
        ];

$VAR1 = [
          [
...
                   }, 'Point' )
          ]
        ];