my @items = values ${ $fpc{$r} };
for my $f (@values) {
    ...
}