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