my @a = do {
    my $idx = 0;
    map {
        [ (split ' ', $_), $idx++ ],
    }@$arr
};