...
        while (my $row = $sth->fetchrow_hashref)
        {
                my $int = $prefix . $row->{'VID'};
                ...
                my @cfg = &intcfg($int);
                if (!defined($cfg[0]))
                {
                        print "! .$row->{'VID'}: Fail on get configuration: " . Dumper(\@cfg);
                        next;
                }
                my @new = ($cfg[0]);
                ...
                print $new[0].($msg||'')."\n";
                print "$_\n" foreach (@new[1..$#new]);
        }
...

interface GigabitEthernet0/1.894
 description LL894:*
 shutdown
 exit
interface GigabitEthernet0/1.895
 description LL895:101-6130-02
 exit
! .896: Fail on get configuration: $VAR1 = [];
interface GigabitEthernet0/1.896
 description LL897:*
 shutdown
 exit
interface GigabitEthernet0/1.898
 description LL898:101-4704