Select Code to Download

#!/usr/bin/perl

...
    Ports:   fc1/1    [up] *

$VAR1 = {
          '1' => {
...
                   'fc1/1' => 'up'
                 }
        };