use strict;
use warnings;
my @array = (
    [1,2],
    [7,5],
    [4,4],
    [2,2],
    [0,7],
    [3,4],
    [8,9],
    [3,6],
    [5,7],
    [7,2],
);
foreach my $pair (@array) {
    my ($x, $y) = @$pair;
    print "$x $y \n";
}