my %list;
for my $outer=(1..5){
my $last=0;
for my $inner=(0..9){
my $number=<STDIN>;
unless ($last==0) {
unless ($number==$last+1){
die("bad input");
}
$list{$outer}[$inner]=$number;
}
}