my @r;
reduce{
    print "$a:$b";
    push @r, [ $a, $b ];
    $b;
} () = split ' ', $s;