sub ban {
    open( CFG, "<", "/etc/squid/squid.conf" );
    my @cfg;    # <--
    while ( <CFG> ) {
        push @cfg, $_;
    }
    ...