#!/usr/bin/perl
use strict;
use warnings;

my @lists = ([0,7,0],
             [1,3,0],
             [0,5,1],
             [1,2,1]);

foreach my $list (sort {$a->[0] <=> $b->[0] or $a->[2] <=> $b->[2] } @lists) {
    print @$list, "\n";
}