Select Code to Download

#!perl -w
use strict;
...
            }
        }
    }

c:\Users\Corion\Projekte>perl -w tmp.pl
value of r is R0
...
request chassis pic offline fpc-slot 5 pic-slot 5
Processing pic-elements for R0 in order 5,4
request chassis pic offline fpc-slot 4 pic-slot 5

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