for my $r (@router)
{
    print "value of r is $r\n";

    OUTER: for my $f (values %{ $fpc{$r} })
    {
        my $p = (values %{ $pic{$r} })[0];
        print "request chassis pic offline fpc-slot $f pic-slot $p\n";
    }
}