foreach my $fred ([1, 3], [2, 4]) {
    my($i, $j) = @$fred;
    say $i;
    say $j;
}