paired {
    my ($r,$s) = @_;
    ...
} ( x=>5, y=>8 );