sub paired {
    my @pairs;
    push @pairs, [ shift, shift ] while @_;
    return @pairs;
}